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0 Control system for a sample preparation system. 

0 There is disclosed herein a system for control- 
ling an electromechanical system comprised of a 
number of electromechanical devices (e.g.. 30, 32. 
34, 36, 38, 40, etc.) such as solenoid operated 
valves, motor, relays and other devices. The control 
system is comprised of a central processing unit 
(20) and control software plus suitable interface cir- 
cuitry to convert the digital data from the central 
processing unit into suitable control signals to op- 
erate the electromechanical devices. The control 
software allows users to either select preprogram- 
^med sequences of commands to be executed by the 
^computer or to program unique sequence at either of 
_ two levels of complexity. User access privileges may 
^defined by the system manager such that certain 
00 users may not be allowed to program their own 
^sequences, while other users may be allowed to 
1^ program their own sequences only on the first level 
^ of complexity but not the second, while a third group 
QOf users may be allowed to program on either of the 
programming levels or to run the preprogrammed 
^sequence as defined by the system marwger. The 
two levels of programming complexity are a high 
level and an expert level where the command set on 



the high level consists of a plurality of commands 
each of which represents a macro. A macro is a 
collection of more detailed commands from the ex- 
pert level each of which represents a single opera- 
tion to be performed or a very small group of oper- 
ations by the electromechanical devices being con- 
trolled. Collections of these commands from the 
expert level are then put together in prearranged 
sequences to define predetermined functions of the 
system which may be performed by the single high 
level command representing that macro. The com- 
mand set on the expert level is therefore comprised 
of commands which define single operation such as 
valve openings and closures or relay openings or 
closures or the turning on of a motor or the turning 
off of a motor. 
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CONTROL SYSTEM FOR A SAMPLE PREPARATION SYSTEM 



Background of the Invention 

The invention pertains to the field of sample 
preparation systems, and more particularly, to the 
field of control systems for automated sample 
preparation systems. 

In many industrial production facilities and lab- 
oratories, there is a need to assay sample chemi- 
cals being prepared, analyzed or otherwise pro- 
cessed. Such samples can come in many different 
forms. For example, they may be solid, liquid, two 
phase liquid or liquid-solid, and may or may not be 
highly viscous. Many types of assay systems re- 
quire liquid samples of known viscosity and con- 
centration. An example would be a liquid 
chromatography system. 

Obviously, there is a need for systems which 
can prepare many different types of samples for 
assay by such machines. Preferably such systems 
are automatic in the sense that after the user 
defines the type of sample preparation needed, the 
system automatically carries out this processing on 
samples until told to stop or until the sample prep- 
aration runs out of samples. 

Because of the many different types of sample 
formats and because of the many different types of 
sample preparation processes which exist for var- 
ious types of assays, there is a need for flexibility 
and programmabiiity in a control system for an 
automated sample preparation system. The user 
must be provided the facility with which the particu- 
lar types of samples he or she intends to process 
may be prepared in a process for which the steps 
and sequence of steps are defined by the user. In 
this way the user can tailor the automatic sample 
preparation system for use in the environment pe- 
culiar to that particular user. 

Prior art automatic sample preparation systems 
exist in the form of robots. One particular type of 
robot of which- the applicants are aware is a robot 
manufactured by Zymark. These robots may be 
programmed to emulate all the movements a hu- 
man being would make in doing a sample prepara- 
tion process manually. Unfortunately, such systems 
are complicated and expensive and difficult to use 
because of the complexity of the mechanical ma- 
chinery and control computers and software need- 
ed. Thus, a need has arisen for a control system 
for a sample preparation system which is flexible, 
programmable, easy to use. and relatively inexpen- 
sive to manufacture. 



Summary of the Invention 

In accordance with' the teachings of the invent 
tion. there is provided a control system for a sam- 

5 pie prepara tion system to fully automate the sys- 
tem and allow users to program their own sample 
preparation procedures or to use preprogrammed 
procedures. Further, the control system allows a 
user acting as a system manager to define the 

10 necessary sample preparation procedures for var- 
ious types of samples likely to be encountered. 
Then the system manager may lock out users 
without system manager privileges to prevent them 
from altering the procedures while allowing such 

/5 users to use the procedures programmed for them 
by the system manager. 

The control system of the invention allows user 
interaction with the system at three levels. At the 
first level, users may only give the sample iden- 

20 tification (in embodiments with no bar code read- 
er), the sample weight, the user initials, the date 
and time, the lot number to run. and the method of 
sample preparation to be followed. These methods 
of sample preparation will have been programmed 

25 into nonvolatile memory before the control system 
is obtained by the user or will have been previously 
programmed in by the system manager. 

The next level of user interaction is a high level 
language level. At this level, the user has various 

30 high level sample preparation system control com- 
mands at his disposal. iSuch commands include fill, 
mix. isolate, flush, dilute, inject, wash. etc. Each of 
these commands represents a predetemiined se- 
quence of events which will be caused by the 

35 control system to happen in the sample preparation 
system when the particular command is executed 
in the course of performing a sample preparation 
procedure. The user at this level may string a 
series of such high level commands together into a 

40 sample preparation procedure and give it a name. 
Upon selection of a high level command, the con- 
trol system would prompt the programmer for any 
necessary variables or parameters, such as solvent 
selection, volumes, flow rates, mixing times, etc, 

45 Thereafter, by identifying the particular procedure 
the user wishes to "run, the same sequences of 
events may be caused to occur in the sample 
preparation system of the invention. Some of the 
high level commands have parameters which are 

50 accessible to the user and may be set to accom- 
modate the particular needs of the user. These 
parameters allow the user to control, for example, 
the amount of time a mixing step is carried out and 
the level of energy that is input to the mixer by the 
homogenizer. ' 
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The key to breaking up sample preparation 
procedures into a series of standard preparation 
steps, which can be chained or re-chained together 
in any useful sequence the user needs to accom- 
plish his desired sample preparation procedure, is 
to design the hardware and software control logic 
to allow each standard preparation step and each 
programmed series od standard preparation steps 
to be completely independent of the preceding or 
following step or series of steps. For example, 
upon completion of a dilution sequence or cup 
wash cycle, the diluent or wash solvent from a prior 
dilution or rinse should not be left in the instrument 
connecting tubings or modules. If there is such 
leftover solvent etc, it may inadvertently contami- 
nate the next dilution or wash with the wrong or an 
undesired solvent If this undesired solvent could 
not be removed from all tubings and connections 
prior to the next step or sequence of steps, the 
next step would be restricted to using a solvent 
deemed compatable with the undesired solvent and 
thereby place undesired restrictions on the next 
step. 

At the most detailed level, the control system 
according to the invention provides the user access 
to and programmability for elemental operations of 
the type that are combined into the sequences 
which make up each high level command. Such 
elemental operations control individual events in 
the system such as the opening and closing of a 
particular valve, the turning on of the homogenizer, 
setting of the power level of the homogenizer. etc. 
The user may program the system at this level by 
stringing names. These sequences may be thought 
of as user definable high level commands, or 
"macros." The user may string any number of 
macros together to form a procedure which may 
then be labelled and executed by referring to it by 
its name. 



Brief Description of the Drawings 

Rgure 1 is block diagram of the hardware of 
the control system and the system electromechan- 
ical devices which are read and controlled by the 
control system. 

Figure 2 is a schematic diagram of a typical 
sample preparation system which may be con- 
trolled by the control system of the invention. 

Rgure 3 is a schematic diagram of another 
embodiment of a sample preparation system which 
may be controlled using the control system of the 
invention. 

Rgure 4 is a flow diagram of the overall 
control flow of the control system software. 

Rgure 5 is a flow dijagram of the . various 
routines of the control system of the invention. . 



Figure 6 is a flow diagram of the create, 
modify and delete routine of the control system of 
the invention that the allows a user to create new 
sequences of commands at either of two levels of 
5 detail and complexity. 

Detailed Description of the Preferred Embodiment 

70 Rgure 1 is a block diagram of the electrcnics 
of the control system in accordance with the teach- 
ings of the invention. The control system is cen- 
tered around a CPU 20 which could be a micropro- 
cessor, personal computer, minicomputer, or main- 

15 frame. Included within the CPU block is RAM 
memory for storing programs and data while the 
computer is running; Mass storage of data, pro- 
grams, and other information such as data bases, 
macros, user defined parameters, user defined 

20 sample processing routines, etc., is performed by 
mass storage unit 22. This unit could be a disk 
drive, tape transport, bubble memory, or any other 
bulk storage device with sufficient access speed 
and stor age capacity for the particular application 

25 ' involved. The . user controls the computer 20 
through a terminal comprised of keyboard 24 and 
any type of display 26. 

The computer 20 is coupled to the various 
operating units in the sample preparation system 

30 by bus 28. This bus 28 is actually comprised of the 
address, data, and control signal lines of the com- 
puter 20. The bus is coupled to the ports for 
addresses, data, and control signals such as 
read/write, interrupt, ready, etc. on the various dri- 

35 vers and interfaces to the various functional ele- 
ments of the system. A more complete description 
of the sample preparation system for which the 
control system is intended to be used with is given 
in the following U.S. patent applications: 

40 "System for Preparation of Samples for Analysis" 
by Nau, Metzger, Orimm, Nohlf serial number 
942,197, filed, 12/16/86 and "Sample Preparation 
. Chamber , with Mixer/Grinder and .Sannple Aliquot 
Isolation", by Nau, Metzger,* Grirnm, Andre, and 

45 Nohl. serial number 942,198, filed tZ'l 6/86. both Of 
which are hereby incorporated by reference. 

Because the sample preparation system is in- 
tended for . use in applications where either the 
samples will be brought into' the system in cups or 

50 other containers with bar codes thereon or pumped 
into the cup through a 6-way valve, a bar code 
reader 30 is provided. This allows '.sample iden- 
tification data such as lot number and batch num- 
ber or other types of information pertaining to the 

55 incoming samples to be read frorri bar codes on 
the sample containers. This information may then 
, be read by the computer 20 and stored in the 
mass storage unit 22 for later correlation with the 
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test results for that group of samples. Bar code 
readers are known and systems for moving sample 
containers by bar code readers so that the bar 
codes may be read are also known. 

In the preferred embodiment, a network inter- 
face controller 32 is provided to allow other com- 
puters and units on a network in the user facility 
such as terminals In the offices of scientists to 
offices, program the system or inquire as to the 
status of a" particular sample preparation routine. 
Further, the users may have access to the data 
which resulted from a particular sample run. For 
the network interface, this user can have the sam- 
ple data resulting from the assay of a particular lot 
of sample communicated directly into the data 
based in the other computer. 

A sample loader 34 functions to mechanically 
load samples arriving in containers. The particular 
design of the sample loader is not critical to the 
invention. It may load sample from one or more 
containers brought in by the user such as a tray of 
test tubes into the sample preparation chamber. In 
such a system, the sample from each test tube 
would be loaded into the sample preparation cham- 
ber, homogenized, diluted, and pumped through 
the assay system. At some point in the process, 
the sample would be identified either by the user 
keying in the identfication data or by the bar code 
reader 30 reading the bar code on the test tube. 
The analysis data from the assay would then be 
stored in the mass storage unit 22 along with the 
corresponding identification data. The sample load- 
r would then load the sample from the next test 
tube into the sample preparation chamber, and the 
process would be completed for the sample from 
the next text tube. The design of such a sample 
loader is known and a commercially available unit 
which could be programmed to do the job would 
be the PRO/GROUP(tm) automatic assay machine 
available from Cetus Corporation in Emeryville. 
California. In alternative embodiments, the sample 
loader 34 could be any mechanical system which 
could take a cup like that used in the sample 
preparation chamber described in' the patent ap- 
plications incorporated by reference and attach it to 
the cap. Any mechanical arrangement that can load 
a copy from a tray, conveyor belt, or carousel of 
cups into mechanical, sealing engagement with the 
cap of the sample preparation chamber described 
in the patent applications incorporated by reference 
will suffice. In some embodiments, this unit may be 
omitted altogether where sample is pumped in 
from a process stream or injected from a 6-way 
valve coupled to a sample vat. The design of 
suitable sample loaders which will suffice to prac- 
tic this aspect of th invention is known. 

There is also provided electronic scales 36 in 
the pref rred embodiment. These provide the fa- 



cility for weighing of solid samples or samples 
which are too viscous to pump into the sample 
preparation chamber where such samples are 
placed manually in the sample preparation cham- 

5 ber. The purpose of weighing such samples is to 
provide the user with an indication of the amount o* 
sample that has been placed In the sample prep- 
aration chamber. This is important because the 
samples will later be diluted with solvents or diluent 

70 to a user defined concentration. In order to do this 
properly, the weight of sample in the sample prep- 
aration chamber prior to addition of the diluent 
must be known. The electronic scales also provide 
an RS232 or parallel interface to the computer 20 

75 via the bus 28 so that the computer 20 may read 
the sample weight directly. The electronic scales 
may be eliminated in some embodiments. Without 
the electronic scales, if the user is dealing with a 
solid sample, the weight of sample placed in the 

20 sample preparation chamber must be keyed in by 
the user through the keyboard 24. A suitable elec- 
tronic scale 38 would be the Mettler AE160 avail- 
able from Mettler in Switzerland. 

A pump interface 38 provides the facility for 

25 the computer 20 to control the reversible pump 
used in the sample preparation chamber. The 
pump nriotor may be a stepper motor or a D.C. 
sen/0 motor with an optical or other type of en- 
coder so that the pump interface circuit 38 can 

30 determine the position of the motor shaft at all 
times. Any type of motor with sufficient power and 
a system to positively control the pump shaft posi- 
tion or otherwise control the exact volume pumped 
will suffice. The pump interface obviously needs to 

35 be designed to interface between the particular 
type of pump motor and pump chosen and the 
particular type of computer 20 chosen. 

Rgure 2 shows one embodiment of a sample 
preparation system with which the control system 

40 of the invention may be used. In this embodiment 
of the sample preparation system, the details of the 
structure and operation of which are as described 
in the patent applications incorporated herein by 
reference, two manifolds 39 and 41 are used as 

45 central terminals in what amounts to a fluid switch- 
. ing multiplexer. Each manifold is coupled to various 
sources of material or various destinations in the 
system by a "plurality of remotely controllable 
valves of which valves 43 and 45 are typical. These 

50 valves are typically solenoid operated or pneumati- 
cally operated under the control of the computer 
20. The purpose of the valve interface 40 in Rgure 
1 is to electrically translate the address, data, and 
control signals on the bus 28 into the proper elec- 

55 trical or pneumatic control signals to cause the 
proper valve in the system to assume the proper 
state. Such interface circuits are well . known . for 
^ either solenoid operated valves or pneumatically 
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operated valves. For example, in the case of sole- 
noid operated valves, a motor controller chip can 
decode the address on the bus 28 and a data word 
Indicating whether the valve is to be opened or 
closed along with an active write signal. All these s 
signals define an action desired for a particular 
valve. The address specifies which valve is to be 
operated, and the active write signal indicates when 
the computer 20 is addressing a particular valve. 
The data word defines whether the valve is to be io 
opened or closed or which of its multiple states to 
assume in the case of a multistate valve. 

The motor controller chip then activates a par- 
ticular output signal line coupled to a solenoid 
driver such as a relay or a triac in such a manner rs 
as to cause the desired change in the state of the 
addressed valve. 

In the case of pneumatic valves, the address, 
data and control signals are decoded, as above, 
but the activated output signal from tiie motor 20 
controller chip is used to control a pneumatic pres- 
sure source to either apply pneumatic pressure or 
remove it from the particular valve addressed. 

Figure 3 shows the preferred embodiment of 
the sample preparation system with which the con- 25 
trol system In accordance with the teachings of the 
invention is used. The difference between tills sam- 
ple preparation system and the sample preparation 
system of Rgure 2 is that tiie manifolds 39 and 41 
and the associated valves such as valves 43 and 30 
45 are replaced with two rotary, multistate valves 
47 and 49. Air other details of the system structure 
and operation are as described in the patent ap- 
plications incorporated by reference herein. Each 
of these valves has a central input pipe, pipes 51 3S 
and 53 respectively, which is -connected to only 
one of a plural ity of output ports coupled to 
various sources of material or destinations in the 
system. A stepper motor or D.C. servo motor witii 
optical encoder is used to drive the valve to its 40 
various states. In. such' an embodiment,. the valve 
drivers 40 are the interface circuits needed to con- 
trol the stepper motors or D.C. servo motors. 

\nXegraXed circuits for stepper motor control are , = 
commonly available. These circuits allow the com- ^ 45 
puter 20 to send address and data words to the 
stepper motor controllers after enabling the chip . 
with a proper chip- select signal. The address sig- 
nals indicate which of the two rotary valves is being 
addressed, and the data words indicate the desired so 
state in which the rotary valve is to be placed, v 
Typically, these integrated stepper motor control- . ' 
lers have a command set. Typical commands , in- 
elude commands to start and stop the controlled : 
motor, commands to control the acceleration and ss 
deceleration profiles, to use, commands to control 
the step number to which the conti'olled ^motor's : 
shaft is to be moved, and commands to read \he 



particular step at which the controlled motor's shaft 
is currentiy resident. Such chips may be used to 
control the stepper motors used to drive the rotary 
valves 47 and 49. In the preferred embodiment of 
the sample preparation system, these rotary valves 
47 and 49 are manufactured by Hamilton Compaoy 
of Reno. Nevada. 

A typical D.C. servo motor which could be 
used to drive the rotary valves 47 and 49 is manu- 
factured by.Galil Motion Control, Inc. of Mountain 
View. California under the model designation DMC 
100. These servo motors have optical encoders 
which are used to provide feedback as to the shaft 
position to an interface board for the Galil motor 
plus motor controller chips for the other remotely 
controlled valves in the system. 

The RS232 port interface 42 may be a simple 
commercially available UART. The analyzer 48 
may be coupled to the computer 20 through the 
RS232 interface 42, or the network interface 32. 

The mixer 55 in Figures 1 and 2 may be an 
ultrasonic mixer such as is made by Sonic and 
Materials of Danbury, Connecticut under the trade- 
mark VIBRA CELL In alternative embodiments, a 
high speed homogenizer could be used such as 
are made by .Brinkman (shroud with a high speed 
rotating shaft therein rotating at 28,000 RPM, there- 
by creating a high shear in the liquid and disinte- 
^ grating particles therein). These units come with 
their own interfaces which may be used for the 
mixer interface 44. , The basic control functrons 
needed to control the mixer are the time of mixing 
and the power level which controls the amount of 
turbulence generated in the liquid. The mixer inter- 
face will be necessary electronics to interface with 
the mixer control circuit for the selected mixer. The 
. details of how to interface the computer 20 to the 
interface circuits tiiat come witii the mixers will be 
: apparent to tiiose skilled in the art. A good refer- 
; ence for interfacing computers such as the com- 
V puter 20 to control external instrumentalities is 

- Libes and Garetz. Interfac ing S-1 00/IEEE ; 696 
. Microcomputers, 'v:(Osborne;McGraw. Hill 1981) 

which is hereby incorporated by reference. An aux- 
■ iliary interface 46 is provided to allow tiie computer 
20 to control external instrumentalities such as . 
valves, solenoids, etc. which are outside the sam- 
ple preparation system. Typically, this interface will 
be digital, programmable ports such as are com- 
monly available in integrated circuit form where the 
. characteristics of the ports may be set by the user. 
Figure 4 is a high level functional diagram of 
the control program • in the computer 20 ; which 
allows users to program and run their own se- 
quences of events to be perfonmed in the sample 
preparation system under control by th .control . 

- system of the invention. The control program runs 

I the user:: defined / sequences by. generating : the - 
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proper control signals to cause the desired se- 
quence of events to occur in said sample prepara- 
tion system. 

At power up in some embodiments, the system 
will perform a self test to verify the integrity of the 
system prior to performing any operations. This is 
symbolized by block 50. Next, the system displays 
a user identification request/sample identification 
request screen as symbolized by block 52 
(hereafter references to blocks will be understood 
to mean reference to those source code computer 
instructions organized as routines and subroutines 
in the control program which perform the function 
indicated in the block referred to). The purpose of 
block 52 is to supply query fields on the terminal 
or display 26 for the user to respond to by filling in 
the requested data via the keyboard 24. The re- 
quested data is to identify the user, to give various 
data items regarding the sample, to give the date 
and the time and to identify the sequence the user 
desires to run. The data items regarding the sam- 
ple to be filled in may include the sample ID. the 
sample weight, and the lot number from which the 
sample came. The user identification number is 
used by the control system to determine the ac- 
cess privileges which the user has. 

The control system has three levels of access. 
At the simple level, the user may only run se- 
quences that have been previously programmed by 
the system- manager. At the high level, users hav- 
ing access privileges at this level may program 
their own sequences of events using commands 
from a high level language command set. These 
commands represent predetermined building block 
functions which are necessary to perform sample 
preparation. Such building block functions include: 
mix, isolate known sample volume, flush the re- 
maining liquid out of the sample preparation cham- 
ber, release the isolated sample volume, dilute the 
sample volume with a user defined volume of a 
user identified solvent, pump the diluted sample to 
the analyzer, etc. At the expert level, users having 
access to this level may program their own 
"macros" using system commands at a more de- 
tailed level than the high level commands identified 
above. These more detailed commands allow the 
user to control the system at a finer level of resolu- 
tion. For example, a typical command may be 
"open valve #1 " or "rotate multiport valve #2 to 
state #3." Each of the high level commands is 
comprised of a predetenmined sequence of expert 
level commands. 

The identification data entered by the user in 
block 52 via the keyboard 24 is stored on the mass 
storage device 22 in block 54. Next the system, in 
block 56, determines the access privileges of the 
user by comparing the user ID to the list of ID 
numbers supplied by the system manager for each 



level of access. 

Block 58 represents the step of displaying an 
option menu by which the user, by selecting an 
option, may express a request regarding what the 
5 user wishes the system to do or what the user 
desires to do with the system. Typical menu op^ 
tions include: start, status, method, directory, re- 
port, load, print, system, control, defaults, functions, 
and options. The meaning of these options will be 

70 explained more below. 

After the user has entered his or her request 
via the keyboard 24, the control system verifies 
that the user has the access privilege necessary to 
perform the function requested in block 60. If so, 

15 the control system branches to the routine which 
performs the desired function or provides the fa- 
cility requested by the user in block 62. If the user 
does not have the required access privilege, a 
message to that effect is displayed in block 64, and 

20 processing proceeds to block 58. 

Referring to Figure 5 there shown a .flow chart 
of the various routines which are available for se- 
lection by the user In Step 58 of Figure 4. The first 
routine, symbolized by block 64. is a routine which 

25 allows the user to create, modify, or delete an 
operation sequence. An operation sequence is a 
collection of commands which are executed by the 
central processing unit in order to generate control 
signals to control the electromechanical devices in 

30 the system. The control signals cause them to 
perform a physical sequence of events to process 
a sample where the sequence is defined by the 
particular sequence of commands in the program. 
The routine of block 64 allows the user to program 

35 his own sequences of commands at either of two 
levels of complexity. At a first level of complexity, 
the user may have access to a set of commands 
each of which represents a specified function that 
the system is capable of performing and each of 

40 which causes a predetermined sequence of events 
to occur in the proper order to cause the physical 
event symbolized by that command. The second 
level of complexity allows the user to have access 
to a set of commands which are very detailed. 

45 These commands each represent a single action or 
a very small group of actions that one or a very 
small group of electromechanical devices performs. 
Essentially, the commands at this second level are 
the component commands which are grouped to- 

50 gether in a predetermined sequence to implement 
one of the commands on the . first level. Essentially 
then, the commands on the first level are macros 
which are collections of commands on the second 
level but arranged in a predetermined sequence for 

55 each particular command on the first level. 

Block 66 is a routine which allows the user to 
print a hard copy of a sequence which has been * 
programmed by the user. 
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Block 68 is a routine which allows the user to 
load a predetermined sequence, i.e., a method of 
sample preparation which has been preprogram- 
med by the system manager. The system manager 
is a user which has access to all functions of the 
system. That is. the system manager can define 
the access privileges of all the other users on the 
system, and he may program preprogrammed se- 
quences which are available for certain users who 
are not allowed to program their own sequences. 
Block 68 is the routine which the user calls when 
one of these preprogrammed sequences is to be 
loaded. 

Block 70 is a routine which allows the user to 
print a directory of all the methods or sequences 
which are stored in the system and available for 
execution. Block 72 represents a routine which 
allows the user to start the selected sample prep- 
aration routine and which causes the CPU to begin 
generating the control signals which cause the 
physical actions to occur. 

Block 74 represents a routine which displays 
the system status. Block 76 is a routine which 
allows the user to print the system status which is 
displayed in the routine of. Block 74. 

Block 78 is a routine which allows the user to 
change the system default parameters. Typically, 
each command on either the first or second pro- 
gramming level will have parameters or arguments 
associated therewith. These arguments are variable 
values which define the specific manner in which 
the command is to be performed. For example, a 
mix command may have as an argument the power 
level at which the mix is to be performed, the time 
duration of the mix, and the RPM that the mixer is 
to use. 

The routine represented by block 80 allows the 
user to have access to the various valve and relay 
controls such that the user may open certain valves 
or close certain relays manually by causing the 
CPU to generate the proper command to cause the 
proper operation of the valve, relay or other elec- 
tromechanical device. 

Block 82 represents a routine which allows the 
system manager to create new system functions. 

Block 84 is a routine which allows the user to 
print a report. Such reports may consist of reports 
of user activity, the sequences which have been 
run. the volume of activity for a particular se- 
quence, and so on. Block 86 is a routine which 
allows the user to change the print parameters. 
This routine allows the format of the report to be 
set such as margins, spacing, headers, and other 
types of formatting commands common to 
database report routines. 

Block 88 is a routine which displays for the 
user the system options which have been elected 
and which are operable. 



Block 90 is a routine which allows the user to 
use the print mode of the system for various func- 
tions. 

Block 92 is a routine which allows the system 
5 manager access to certain system functions. 

Referring to Rgure 6 there is shown a more 
detailed flow diagram of th create, modify and 
delete routine of block 67 in Rgure 5. The first step 
when the user elects to program his own sequence 

10 is to inquire whether the user wishes to program on 
the first level or on the second level noted above. 
- The first level will be called the high level for 
purposes here, and this level will provide the user 
access to the macro commands. The second level 

75 will be called the expert level and grants the user 
access to the detailed commands which essentially 
allow the user to define each valve opening and 
closing and each operation of each motor or other 
electromechanical device individually. The levels 

20 are named the high level and the expert level for 
purposes of indicating the relative amounts of skill 
needed to program on these levels. Programming 
at the high level is similar to calling subroutines or 
macros on any computer. Programming on the 

25 ' expert level is similar to programming in source 
code and requires a some programming skill and a 
great deal of knowledge regarding the hardware 
aspects of the system being programmed. 

The process of determining which level the 

30 user wishes to have access to is symbolized by 
step 94. This step also determines the user's ac- 
cess privilege by checking the user's identification 
code and comparing it to a table or other such 
database defined by the system manager which 

35 indicates which users have access to the high level 
command set and which users have access to the 
expert level programming command set. If the user 
elects to program at the high level, the next step is 
symbolized by block 100. In this step, the user is 

40 prompted for a name for the sequence which he is 
about to program. After the sequence has been 
named, step 102 is performed wherein the user 
selects the first high level command which is to be 
executed in the sequence. In some embodiments, ' 

45 the list of high level commands from which the 
user may choose may be displayed and the user 
may simply choose a command by positioning the 
cursor on the proper command and pressing a 
select key. In other embodiments, the user may be 

50 required to know the high level commands and 
select the particular command desired by an acro- 
nym. 

As noted above, most commands have certain 
parameters or argum nts. Step 104 represents the 
55 process of prompting the user for parameter values . 
for the command selected in step 102. Each com- 
mand will have default parameters which are set by ^ 
the user in step 78 of Rgure 5. If the user wishes - 
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to US© the default parameters, he need do nothing 
in step 104. If however, the user wishes to define 
the specific nnanner in which the particular com- 
mand is to be executed, then the parameters for 
that command may be adjusted in step 1 04. s 

After step 104 is performed, the control soft- 
ware causes the central processing unit to prompt 
the user to determine if the command just defined 
Is the last command in the sequence. This step is 
symbolized by block 106 in Figure 6. If the user is jo 
done picking commands, the processing proceeds 
to step 108 where the method is stored in perma- 
nent storage such as on a floppy disk or hard disk. 
Processing then returns to the main menu symbol- 
ized by block 58 in Figure 4. ;5 

If the user is not finished programming, then 
processing proceeds from block 106 to block 110 
where the user is prompted to select the next high 
level command in the sequence. Processing then 
proceeds to block 112 where the parameters for 20 
the command selected in block 110 are displayed 
and the user is prompted for new values for these 
parameters. If the user responds with new param- 
eters, these are stored with the command as a 
permanent part of the sequence being pro- 25 
grammed. After step 112 is performed, step 114 is 
performed to again to test for completion of pro- 
gramming. Step 114 represents the process of 
prompting the user to determine if the user is done 
programming. If he is, then processing continues at ao 
step 108 as described above to store the method. 
If the user is not done programming as determined 
in step 114. then processing returns to step 110 
where the user is prompted to select the next 
command in the sequence. 35 

Returning again for a moment to step 94 in 
Figure 6, if the user is determined to have no 
access to either the high level or expert level 
programming command sets, then step 94 vectors 
processing to a step 96 wherein a "no access 40 
privilege for selected level" message is displayed 
on the terminal. Thereafter, in step 98. processing 
is returned to the main menu of step 58 in Figure 
4. 

If the user selects the expert level for program- 45 
ming, a similar sequence of events occurs starting 
with step 1 1 6. There the user is prompted to name ' 
the sequence he is about to define. The next step, 
118, prompts the user to select the first expert 
level command to be executed in the sequence. so 
Then, in step 120, the user is prompted to select 
new parameters for the expert level command se- 
lected in step 118. Again, the expert level com- 
mands also have default values which may be 
altered by the user in step 120. Step 122 repre- 55 
sents a test to determine if programming has been 
completed. If it has, then step 108 is performed as 
described above. If programming is not completed. 



processing proceeds to step 124. There the user is 
prompted to select the next expert level command 
and define the parameters for that command. 

Step 126 represents a test to determine wheth- 
er the user is done programming. If he is, then step 
108 is performed and control is returned to the 
main menu. If the user is not done programming, 
then control returns to step 1 24 where the user is 
prompted to select the next expert level command. 

Appendix A is a listing of the source code for 
the preferred embodiment of the invention. This 
source code runs on an IBM PC running the Forth 
and DOS programs. 

Although the invention has been described in 
terms of the preferred and alternative embodiments 
detailed herein, those skilled in the art will appre- 
ciate that many modifications may be made. All 
such modifications are . intended to be included 
within the scope of the claims appended hereto. 



Claims 

1. A control system for an apparatus having a 
plurality of electromechanical devices controlled by 
said control system, said control system having a 
CPU (20) wherein the improvement comprises soft- 
ware means (Rgures 4, 5, 6) for allowing a user to 
cause said CPU to run any of a plurality of fixed 
command sequences or to program one or more 
new sequences using commands at any of a plural- 
ity of complexity levels where at least one com- 
plexity level is populated by commands which are 
macro commands in the sense that each is a 
concatenations of commands from at least one 
other of said complexity levels. 

2. The apparatus of claim 1 wherein said soft- 
ware means includes means (Figure 6) for allowing 
a user to program sequences at a first level with 
macro commands each of which causes a pre- 
determined sequence of events to be performed by 
said electromechanical devices. 

3. The apparatus of claim 2 wherein said soft- 
ware means' is also for allowing said user to modify 
the parameters of each command from default pa- 
rameters where said parameters characterize some 
physical characteristic of the sequence of physical 
events that will be caused by execution of said 
command by said CPU. 

4. The apparatus of claim 3 wherein said soft- 
ware means includes means for allowing said, user 
to prograrn a new sequence of commands to cause 
said electromechanical devices to perform at least 
one physical event where the commands available 
to the user are more primitive than the commands 
on said first level in the sense that each command 
represents a predetermined sequence of events 
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which is less complex than the predetermined se- 
quences of events caused by the commands at 
said first level. 

5. The apparatus of claim 4 wherein said soft- 
ware means includes means for allowing each user 
to be identified by a code and further includes 
means for allowing at least .one user to define the 
access privileges of all the other users and encode 
this access privilege data such that said software 
means can determine from said user identification 
code the access privileges each said user has. 

6. The apparatus of claim 5 wherein said soft- 
ware means includes means to allow a first group 
of users to have access to and to run only said, 
fixed sequences of commands and to allow a sec- 
ond group of users to run any of said fixed se- 
quences of commands or to program a new se- 
quence using only the commands at said first level 
and to allow a third group of users the ability to 
program a new sequence using commands at ei- 
ther of said first level or said second level or to ain 
any of said fixed sequences. 

7. A control system for an apparatus having a 
plurality of electromechanical devices comprising: 

computer means for allowing a user to run 
fixed sequences of commands or sequences of 
commands the user programs himself and for gen- 
erating control signals during the execution of 
these sequences which are coupled to said electro- 
mechanical devices and which cause these devices 
to perform the sequence of physical operations 
defined by the sequence being run; and 

control means for said computer means for 
allowing said user to select and run any of one or 
more fixed sequences of operations or to program 
a new sequence at either of two levels of complex- 
ity. _ 

8. The control system of claim 7 wherein said 
control means includes means to allow a user to 
program a new sequence using commands on a 
first level each of which represents a specific func- 
tion of the system involving one or more physical , 
actions of one or more of . said electromechanical 
devices or to program a new sequence at, a second 
level using commands each of which represents a 
single operation by a single electromechanical de- 
vice. }r 

9. The control system of, claim 7 wherein said 
control means includes means to program a new 
sequence of operations using commands at either 
of a first level or commands at a second level 
wherein the commands at said, first level each 
represent one physical operation by one electro- 
mechanical device and wherein the commands at 
said second level each represent a predeternriined 
sequence of said commands at said first level. 



1 0. The control system of claim 9 wherein said 
control means includes means to block access by 
certain users to commands for programming at 
either said first or second levels or both. 
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SOFTWARE LISTING INDEX 

KRo^TFu.^^yoNs " '^^^ ^-^^ 

WINDOWS 3^^ 3^3 

FILE SYSTEM 411 414 4^7 420 423 

SCREEN SUPPORT 37B 381 384 337 390 405 

NORMAL SCREENS 393 379 42? 

HELP S< HELP SCREENS 426 

EDITOR 5< EDIT SCREEN 336 339 342 

SNAPSHOT 3£,6 

TASK SUPPORT 438 441 444 

STATUS TASK 447 453 

DEVICE STATUS DISPLAY 462 465 46S 471 474 477 

STATUS BACKGROUND 453 455 459 

CONTROL TASK 5BI 504 507 510 

METHOD EXECUTION 513 

DEVICE CONTROL 528 531 534 537 546 549 552 555 553 

CONFIG S< TABLES 561 621 

HELP SCREENS (DATA) 630 633 636 639 
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This block loads the entire Satple Preparation Srstet. 
It losds all other load blocks that take up the syste«. • . 
A Kord called SP (or sp) Mill cause this block to be loaded. 

PREP is the tain entry point to the systet, so after a power op, 
jast type 'SP PRtP' to load and run the systet. Note that 

' SP Hill perfcro an 8 DRIVE before loadino, so you don't have 
to switch drives yourself. 



B \ SAKPLE 
1 EWPTY 
2 

3 88 LOAD 

4 33 LOAD 

5 45 LOAO 

6 ?S LGA9 

7 117 LOAD 

8 248 LOAD 

9 126 LOAD 
IB 18B LOAD 
U 57 LOAO 

12 81 LOAD 

13 89 

14 37 
15 



PREPARATION SYSTEH LOAD BLOCK 
: TRl/E 1 ; : FALSE 3 ; : KULL 8 

\ function key execution 
\ screen MindoNS 
\ key functions 
\ file systefl 
• \ task support 
* \ Conf tQuration tables 
\ status task 
\ control task 
\ screens 
\ keycode tables. 
LOAO \ Join this with PREP cosccsd load 
LOAO V iain coisand interpreter 



OECIKAL 
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B 
I 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
IS 
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6 
7 
8 
9 
IB 
11 
12 
13 
14 
15 
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0 



0 \ TEST 



15 



32: 



The Status task updates the status header Nhen things change. 



6 ( Sasple Prep Taslc definitions ) 
1 

2 3SS TERnifJAL PSTfiTUS 
The Control tasi; is responsible for eKSCuting the user's aethod 3 P3TATUS CONSTRUCT 
to control the sample preparation hardware* It is a 4 
background type task, Mhich'-fleans that it can not use any 5 2uSa TlkHIKAL CuHTkGL 
^rintin-j Hor«l£, Error iessa^es lust be passed back to the 6 CGKTRQL COtiSTRUCT 
User task for display. « 7 

8 : HALT ACTIVATE STOP ; 

9 

19 \ 6387 PSTATUS 'nPE KIS ! 

II \ 'TAB 3 PSTATUS 'TAB HIS ! 

12 

13 

14 

IS 
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32 COSSTA.NT RBUFF-SIZE \ ttHOTEHt MUST be a power of 2 
CREATE RB»JFF RBUFF-SIZE ALLOT RBUFF RBUFF-SIIE i?AS£ 
VARIABLE MRPTR VARIABLE RCDUNT 

CREATE SBUFF 6 ALLOT 

VARIABLE SBCTR VARIABLE SBPTR 

1843200. 1 16 W 2C0K5TAKT DIVIDEHO 
HEX : SET-HAHILTCM-BAUO 

DIVIOEKO ROT H/ OUP 

83 3FB OUTPUT 3F8 OUTPUT 

X 3F9 OUTPUT 3 3FB OUTPJT 

3 3F9 QUTF-UT 81 3FC OUTPUT 

3F8 IHPUT DROP 3FA IKPUT ORQP j DECIHAL 
9680 SET-HA«ILTQN-BAUB FORGET OIVIDEKO 
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e \ Saeple Prep precoipile load biccl: 
I 

2 : 4P s ^OnlVE ; \ AIIoms leading other local blocks 



\ Pre coepile prelitinarses and genera] tsols 
\ Clock and calander words for RPjClS cMp 
\ Set Forth' 5 tiie and date 
\ Control and status task definitions 
\ Interrupt & buffers for HaAilton valves 
\ Interrupt driven keyboard input buffer 
\ Error handiina basics 



Hiis is the title that shOHS up in .GR1VE5 



4 10 +F- LOAD 

5 \ 13 LOAD 

6 \ 12 ^P LOAD 

7 I LOAD 
S 2 +P 4 THF;U 
9 S ♦P a TH?;U 

IS 27 +P LOAD 
U 
12 
13 
H 

Ij V Saaple Preceraticn Systei Source Code 11/2&/8& 
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SKADun for configurations B \ Precoipile preliflinaries and general tools 

1 

2 : F2 I SCR +! SCR 2 LIST ; \ Useful functions: 

3 : Fl -1 SCR ♦! SCR 5 LIST ; 

4 : F3 KE: KEI • ; 

5 : F4 EECIHAL DECIKfiL • ; 

A 

7 HEX IFIF KIDTK I DECIKAl \ 32 Char definitions 
SP loads the sasple prep software. Type PP£P to run. ^ B 

9 : 5P 8 DRIVE 36 LOAD ; \ Sample Prep Systet load coiiand 
IS : ASCIK 32 tfOR3 H C} ; \ Convert next char to ascii cose 
11 : BIKARY 2 BASE ! ; 

(»•) run tite code for r, returns address of counted string, 12 : (f) 1 7R5 ; 

f coapiles an inline string; Wll return it's address. 13 : f • CCXFILE (D 34 STRIKS ; IKnEDlATE 

INVERT returns the ones coapleient of a value. 14 : IKVERT ( n — n') KE6ATE 1- ; 

This is the title that shows up in .DRIVES 15 



1 1 



J 
6 
7 
B 
9 
IS 
11 
12 
13 
14 
15 



8 

1 

2 CODE SENP>S£R HEX 

3 3Fe f 2 H07 SBPTR « KOV 

4 « ) e HOV (2) OUT SBPTR IKC KAIT J«P 
S 

i> VARIABLE CALLtft B CALLER ! 

7 ASSEMBLER BESIK B PUSH 2 PUSH U PUSH DS WSK3 

8 ZERO ( B flQV B OS LSS 

9 3FA f 2 KOV (2J IH 3F8 I 2 «0V 4 IB 8 TEST 8 
IC IF ( output interniptl 

U IS SE6 SBCTR DEC 8= 

12 IF IS SEB CALLER H KOV XAKE f « ) KOV 

13 aSE IS SEB SBPTR I XCHS LQDS B 

14 IB SEB SBPTR I XCH6 (21 OUT 

15 THEN 



4 

Q 

1 HEX ■ ' 

2 ELSE ( input interrupt) (2) IN 

3 IS SEB KHPTR N KOV 

4 15 SEB 8 PJOFF H) KOV B 

5 . H INC. RBUFF-SIZE 1- t H AND 

6 IS SEB K SRPTR KOV 

7 IS SEB • RCOUHT INC THEN 

8 as FOPS H POP 2 POP 8 POP 

9 BC INTERRUPT 
IB 

11 GECIKAL 

12 

13 

14 

15 



3 
I 

2 CREATE KB3UFF 32 ALLOT 

3 VARIABLE KBRPTR 

4 VARIABLE KBHPTR 
5 

6 CODE >ICBBUFF HEX 

7 IS SEB m?TK I MV I IHC IF t 1 ANO 
B IS SEB KBRPTR I CKP 8» HOT 

? IF 1 K HOV IS SEB 8 ICBBUFF K) KOV B 
IB IS SEB 1 KBKPTR HOV 

11 THEN RET 
12 
13 
14 



15 
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;28 



;29 



9 

1 CODE spascii 



2 
3 
4 

e 

*t 

6 
7 
8 
? 
IS 
11 
12 
13 
14 
15 



7F f 8 AND 
SHin 8 ADD B 
IS SEB KEYS i- '4) 9 XGV B 
28 » 2 OR 61 IB 2 CKP 6< KOT 



1 e nov 

IS SE6 

8 H nov 

e 2 KOV 

IF ?S IB 2 CHP 8( 

IF ' IS SEB LOCK 3 XCR B THEN 
TKEK 88 i 1 AND 8= KCT 

IF e 8 OR 8= IF IS SEB 0 « SHIFT KGV THEH 
ELSE 8 8 OR 8= NOT 
IF QB IB 8 CKP 0= NOT 

IF IS SEB ' >KBBUFF m THEN 

IS SEB 28 (B LOCK ZOR 
ELSE IS SEB 53 M SHIFT KOV 
TKEK TKEK RET 



8 

1 
*i 

3 
4 
S 
6 
/ 
8 
9 

Id 
11 

12 
13 
14 
15 



ASSEKELER BEEIH HEX 

8 PUSH 1 PUSH 2 PUSH tf PUSH 

IS SEB 8D38 I CPKATCR 5 8A * TEST 0< IF 

. IS SEG MAKE t OPERATOR 3 «0V THES 

68 IK 6 1 KOV IS SEB 'KEY STA 9 

61 I» Se IB 8 OR 61 QUT 88 IB 0 XOR 61 GUT 

IS SEB 46 « 1 CnP 8= IF ( Int 17 ) 87CD , THEH 

IS SE3 ' spascii CAa 

» POP 2 POP 1 PGP 8 POP 

a? INTERRUPT DECIKAL 



Sas^'lr Prgp SoUi*2r€ SucuiSi'itatiort 



1 

2 CODE (BKEY?) 

3 K5RPTF: 6 MOV ICBKPTR 8 SUB 8 PUSH KEXT 
-4 

5 : BKEY? 

6 PAUSE <BKEY?) ; 

^7 

8 HEX 

9 : (BUY) 

16 BEBIK BKEY? UNTIL 

H KERPTR J 1* IF AKO DUP rJBUFF ♦ C3 SNAP KBRPTR ! 

12 OECIHAL 

13 

14 * (BKEYl 2- • a.EY) ! 

15 • EXIT 2- ' (KEY) 2* ! 
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• e \ Function Keys - Load Block 
I 

PEXIT stops the other tasks, cleans up, and exits back to FORTH 2 : PcIIT 

It should prompt the user before exiting. 3 V Exit Systei? (Y/H)* YES? 

4 IF NQRRAL mKSOKOFF PAGE 



J 



COHTP.OL HALT PAUSE 

6 PSTATU3 HALT PAUSE 

7 QUIV 

8 THEN ; 
9 

18 83 LOAD 

U EXIT 

12 

15 

14 

IS 



4B3 



82 



I 
2 
3 
4 
5 
f> 
1 
B 
9 
16 
11 
12 
13 
14 
IS 



404 
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FKEYS is the function key execution table used by the tain 
satple prep routine. Defined function keys have routines 
defined in this table. 



8 \ Function Keys - Saeple Prep function key table 



1 
2 

3 CREATE FKEYSl 



4 ( m ' ST/STP 


, • PS/CHT , 


' CTiD 


, ' PEXIT 


S ( 84) 8 


1 8 ) 


8 


8 


6 ( 88) 8 




• 8 


■ 9 


7 ( 8C) 8 


1 B 1 


8 


, • OESaECT 


B ( 98) • -FUMC 


, B f 


' 4FIINC 


, ' SELECT 


9 1 94) 8 


1 0 1 


8 


t 8 


18 ( 9B) 8 


, • DESELECT , 


• SaECT 


, • SKAPSKOT 



11 

12 
13 
14 



4-06 



87 



Initializationf Rsin Entry Point 



MOWER cofiverts any alpha key to Iwercase for cotparison with- 

the function coiiand characters. 
PREP is the tain entry point for the Saaple Prep Syste*. 

It perforot any reijiiired initialisation and then interprets 

sinijie letter cowands iros the keyboard. 



B \ Saiple Prep 

1 HEX 

2 : >LOiJER ( C — c) 
J OECIKAL - 

4 : PP.EP- I — ) 

5 8 DRIVE SKG mm KIHDQHON 

6 .FRASIE V] STAT.5CR 'SCREEH ! 

7 * ['] FKEYSl 'FKEYS ! 

8 KQRK nm^A (PAGE) 

9 CCKTSGL SYSTcfi PSTATUS RUfiHIHS 
IB 8 'SCREEK ! STAT-OFF STAT,SCR 

11 BEGIK 

12 BESIH CTL.MSS? HEKSTfiTE? 

13 KEY -rUltCTIOH? ?DU? 

14 IF >LC«£R CKAR)FM THEK 

15 A6A1K : 



DUP 41 5B UITHIN IF 2& OR TKEK 



BKEY? UNTIL 



409 B8 

0 \ Function key execution 

1 HEX 

2 VARIABLE 'FKEYS 

3 : KEYLQAD ( a ~) 

4 19 e DC I 88 + DYER KEYS + I + C! LOOP DRGP ; 

5 3A KEYLOAS SD KEYLOAD 99 KEYS C! 99 KEYS 53 ♦ C! ( esc^??) 
fc FORGET KEYLOAD 

7 : -FUKCTIGK? ( c ~ c { 3) 

8 DU? 0 F KITHIN IF 8D ♦ THEM 

9 DL»P SB 9C KITHIK 
18 IF 38 - 2t * FKEYS 9 + 3 ?DUP 

11 IF EXECUTE 8 ELSE 1 

12 THEK VAin ; 

13 DECIKAL 
14 
15 



•FUfiCTIC;-*? checks a keyboard character to see if it is a 
function key, executing it's routine if it is defined. ^ 
Returns a false if it was a valid function, true (or the" 
character) otherwise. 



410 39 



1 

2 : CTL.KSS? ( - ) 

3 FRQK.CCtnROL C3 

4 IF. FRDM.CONTKIL GH^tlSB 

5 DROP .nss 

h THEK ; 

7 

8 

9 
it 
11 
12 
13 
14 
IS 



354 
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II is the coluin oHset to the left NindoM edge (B.,n). 
YI is the nutber of lines down froi the top (8,.n). 
«MIDTH cnntains the f of chars across the HindOK. (L.T?) 
KHEI8HT is the height of the HindoM in lines' iB..2<) 
cm 13 the absolute screen line I of the cursor, 
C.CQL is the absolute screen coluin of the cursor. 

CRTSEG is the screen leflory segient address (88338) 

.REVERSE takes subsequent screen output reverse video. 
NQRflAL restores output to noraal video. 



8 \ Windows - Saiple Prep Mindowing for IBM lonochroee screen 
1 \ Current Kindon paraieters 



2 VARIABLE 11 

3 VARIABLE Yl 

4 VARIABLE KKIOTH 

5 VARIABLE KHEIoHT 
D VARIABLE C.RO« 

7 VARIABLE C COL 



: 119 n 9 ; 
YIS Yl 3 ; 

HEIGHTS UHEI6HT 3 



? II ( BBH) CONSTANT CRTSEG 
IB 

IJ HEK : UNDERLINE 

12 : INVERSE 

13 : NORMAL 



IBB ATTRIBUTE 
7BBS ATTRIBUTE 
78C ATTRIBUTE 



U 34 +P 44 +P THRU \ Load the rest of HindoHs 



DECIMAL 



34 



scroll scrolls the current screen Hindow contents up one line. 



S \ Windows - Screen scrollino 
1 

2 CODE scroll ( — ) I PUSH 

3 3 PUSH KWIDTH 3 MOV Yl 0 MOV 83 i W MOV K MUL 

4 XI e ADD fl B ADD 3 IB 2 KOV KKEI6HT 2 HI MOV B 

5 SPU5H DISPLAY LDA 3 DS LSG B ES LS6 9 POP KSIN 
H MOV 168 I 8 ADO 3 1 KOV I FH3H 3 1 MOV 



MOVS 
B= UNTIL 3 
I POP RET 



0 POP I IB 2 ADD 1 t3 2 HI SUB 
POP B IS SS6 B OS LSB 8 ES LSB 



'cursor returns the screen address of the cursor in register «. U CODE 'cursor ( ~ ) 
nultipijes cursor row by BB, adds coluan, and wltiplies by 2. 12 B PUSH 63 I M MOV 

13 fl B ADD B U MOV C 

'CURSOR is high level access to 'cursor. cODE 'CURSOR < — n ) 



C.ROK LDA 
POP RET 



M hUL C,COL B ADD 



•cursor CALL *r PUSH KEIT 



cleir -rases screen fissory p^jpted to by K with count in 
reg, 1 

3LAKK3 tabes a count and screen address and blanks n chars. 

(cri puts cursor in colutn 6 of the viewport windoH, and 
advances the cursor line I. If line i is beyond bottoi of 
the Hindow, it scrolls MindoH contents up 1 line and puts 
curscM" on last line. Returns cursor address in M. 

?CR Tests cursor coluin position. If off right edge of ttindoM, 
it does a carriage return. H is preserved for (type). 



1 CODE clear 

2 REP STOS 
CGOE BLANKS 



HindoKS - Carriage return 



HERE DISPLAY LDA B ES LSB 
8 IS SSB 0 ES LSG RET 
tan — ) I POP H POP 



ATTRIBUTE LDA 
( clear) CAU NEXT 



CODE <cr) ( « 
XI 8 MOV 
C.ROif 8 CKP 
IF ' scroll 



■ ) 

C.COL MOV CROW IKC Yl B HOV HKEIGHT B ADD 
8< IF fl C.RO« MOV KHEIGHT B MOV 8 fl OR * B> 
CAU THEN THEM • 'cursor CALL H PUSH 
clear CALL U POP RET 



9 KKIDTH 1 KOV 
18 CODE ?CR ( — ) 

n 0PUSK HLDA MXIDTH8ADD 8 DEC C COL 8 CMP 

12 8< IF I POSH 2 PUSH I PUSH ES PU3HS DS PUSH5 

13 IS PUSKS ' (cr) CALL IS POPS OS POPS ES FOPS 

14 1 POP 2 POP I POP 

15 mu 8 POP RET 



3S7 
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-(type) copies the string pointed to by PTR ttith length given by 
CTK to the screen Klndcw st the cursor position. The cursor 
coluin is auvancEd for each char« and 7CK Hill carriaoe return 
Hhen it points pdst right edge of HindoH* 
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ecit puts char fro* stacfc cn screen at cursor. 



LIKADH returns the sbsolate screen addrrss the specified 

windCH line. 
SLIKE blanss the specified MindoH line. 

CLS blanl'S the current tiindOH. 
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CQlU^^l returns the HinduK coluan of the cursor. (Q..Hidth) . 

^CURSOR toves the cursor by signed atount. If in coluin 
and the tove is negativei it backs up one line* 



e \ HindoHS - (type) 

2 CODE (type) ' ( — ) ti PUSH 

3 I PUSH PTR Ul I HOV CTR UJ 1 HOV ' '.cursor CALL 

4 DISPLAY LDA eESLSG ftUfilBtfTE LDA BESIK 

5 ' ?CR CfilL L0D3 B 5TDS C.COL IKC 

6 LQOP fl 15 SSG « £3 LSS I POP « FOP HEU 
7 

6 
9 

le 
n 

12 
13 
14 
15 
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0 \ hlndoHS - eiit 
I 

2 CODE etit ( c ~ 1 

3 • 'cursor CALL DISPLAY LDA e ES LSS 8 PD? 

4 AHRIBUTE Q QR ' ?CR CAa STOS B IS SSS 

5 fl ES LSS KEXT 
6 

7 : LIKAOP. ( 1 ~ a I 

B YU + SB t X19 . + 2t ; 

9 : BLI«£ ( 1 — ) 
18 LINAOR K10TH3 BLAK)3 ; 
U 

12 ; CLS ( — ) 

13 HEIGHTS U 8 00 I G*cIKE LOOP ; 
14 

15 
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fl \ MindoHs • cursor Mveisent 
I 

-2 : CQLU«K ( — col) C.COL 3 11^ - } 
3 

4 : ♦CURSOR ( n — I 

5 DUP 8< COLUKH 0- AKD IF 

6 -I C.RO« ♦! -113 HIDTH3 ♦ C.COL ! 

7 THEH C.COL +! ; 
8 

9 
IB 
11 
12 
13 
14 
IS 
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•expect" is an exact copy froe screen 83 of level 4 Ustinq. 

U has to be defined here because the criminal is headerlesSy 
and can't be found by KQF:D. (note the vert, bar in front of 
CGOE expect in the source listino; it cosoiles a headerless 
definition) 



8 \ Hindons - expect 

I CODE expect t n - n n n» ASSEMBLER 32 t « «0V 



I I SUB 12 «0V 8 POP 12 IB 8 CKP 8= IF . 
CHT Ul DEC B 8( IF CKT U) INC B 

ELSE PTR U) DEC C7P OEC -2 11 KOV 
SHftf ELSE 2 IB I MOV 13 18 B'CMP 8= NOT IF 

PTR Ul « nOV B< IF ( Fn) 11 SUB 2 IB CMT U) ADD 

179'^7 I 8 ADD 8 0 HI ICHG B ST05 32 I K KQV 
ELSE STQS B H PTR Ul MOV K 8 XCHB 

CNT U) IKC B CTR U) IMC 8= IF 
SWAP THEN SWAP THEM 2 CTR U) MOV 2 IHC 
THEH THEH THEN 2 PUSH 1 SAR I PUSH K PUSH KEH, 



This is the title that is used for prooras listings. 



2 
3 
4 
5 
6 
7 
6 

18 
11 
12 
13 
14 

15 \ Sacple Prep Ver 8.1 
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(CR) Hioh level access to (cr). Perforas carriage return. 

(TAB) coves the cursor position to specified line and colufin. 
Allows only valid windoH CDordinates. 

fTTOC) p^gM vsctcr fcr 'TYF'E. • 

(PAGE) vector for 'PAGE. Clears NindOH, hoies cursor, 

(EXPECT) is called fro* EXPECT in FORTH to get n chars and put 
thef to an address. PTK, CTR, CKT are setup by EXPECT and 
used by *expect'. Adveflces cursor position. 
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8 \ KindoHS - Screen output for FORTH 
I CODE (CR) ( — ) ' (cr) CALL KEXT 



2 








3 : 


(TftB) ( I c — 1 






4 


8 MAX KIDTM 1- MIH 


XI3 + 


C COL 


S 


8 MAX HEIGHTS HIK 


Y19 + 


C.RQ« 


6 : 


(TYP.El PAUSE (type) ; 






7 








8 : 


(PAGE) ( — ) as . 


8 8 (TAB) 


• 
1 


9 








IB : 


(EXPECT) BEGIN 95 etit (KEY) 




11 


expect exit ^a^SOR 


UKTIL ; 




12 








13 








14 








15 
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These constants define the IBM characters for draHing boxes. 



K'ltLIKE draHS a horizontal line the Midth of the Mindoti. 
KSI0E5 draHS the left and right MindoM border. 



4S10E5 draHS a box around the current scrm MindoH. 



DRAtlBOX clears the current nindcH, draws a border around it, 
and puts the viewport just inside the border. 
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8 \ HindoHS - Drawbox 

1 233 COKSTAfiT TO 2C2 CDKSTAKT BO 

2 285 COMSTANT HI 18i COKSTAKT VT 

3 281 COHSTAHT UL 187 COMSTAHT Ufl 

4 288 CQNSTAMT LL 163 COMSTMT Lit 
5 

( — 
( — 



\ us and doHn U's 
V hori, vert bars 
\ upper corners 
\ loner corners 



MIDTH3 2- 8 00 HZ EMIT LOOP ; 
HEIGHT) 1 00 



HHLIKE 
MS1DE5 

1 8 TAB VT EMIT 1 HIOTH) I- TAB VT EMIT 
LOOP ; 

4S1DES ( ~ ) 
a 8 TAB UL EMIT KULIHE 
KSIDES HEIGHT) 8 TAB 



UR EMIT 

LLEKIT HKLIHE LR EXIT 



DRAtlBOX i 



) 



as 4SIDE5 1 XI +1 I Yl ♦! -2 KKIDTH +! -2 WEIGHT ♦! 



363 



42 



MINDOK stores the window paraieters, clears the windoM, and 
places the cursor at it's upper left corner. 

BOX is the saae as above, but draws a bo: around the 
specified windoH and takes the MindoH 2 characters sfialler 
in both height and. width. 

KPi: The work Hindow is the full width screen between the 

status header and the aenu bar. 
FULL uses the entire screen. 

SELECTIOfi is the stall window on the right side used ior 

sciecting things. 
tJIDEDIR is used for full directory listings. 
HELfSIZE ii the h^lp windoH. 



e \ Hindows * Windowing 
1 

2 : WIKIIOH ( xl yl w h — ) 

3 HHEI5HT ! KMIDTK ! Yl ! n ! B e (TAB) ; 

4 \ • ' , 

5 : BGX ( xl yl w h — I 

6 »INDO» mmi 0 8 (TAB) ; 

7 ' . 
B \ HindOH Types: 

9 : KORK 6 2 88 17 ; \ use all these as prefixes to 

16 : BKS 8 8 88 24 ; \ KIHDOH or BGX i.e: 

11 : SELECTIQH 67 2 13 17 ; \ 'BKB \limr 

12 : KIDEDIR 14 2 66 17 ; 

13 : KELPSIZE 8 2 66 17 ; 

14 : EDITIHS 8 2 67 17 ; 
IS 



364 



These constants contain the addresses of the non-windowing 
output routines. Used when disconnecting the windowing 
functions, or writing directly to the screen. 

tTYPE types chars to the un-tindowsd screen. It duplicates 
the cede fouTiu iTt scr 73 sfXcVcl 4 listing. 
( 1933 is address of (type) ) 

tTAB positions the cursor on the un-wihdowed screen. 

tEMIT prints a char to screen without using windows. 

tSPnCE outputs a space directly to the screen. 

tSPACES sends n spaces. 

tCLIKt clears the given full screen line. 

lEXFECT expects n chars to addr and echoes to lull screen. 
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0 \ tiindoHS - Full screen outout 

1 'TYPE 9 CONSTAhT CTYPE] 'EXPECT 3 CONSTANT [EXPECT] 

2 'PAGE a CONSTANT CPASE] 'TAB 9 . CQKSTAHT CTABl 

3 'CR 9 COHSTAKT CCR3 

4 CODE tTYPE ( a n — ) HEX 

5 8 POP PTR Ul POP a 8 OR 9> IF 8 CTR U) HOV 

D Lf uf nuu litrcj t n ituT LACkutc 1*' ttur inzn nCAi 

7 DEClKAL 

8 : ITAB ( — 1 CTAB3 \ EXECUTE ! 

9 : tEKIT < c ~ J 'SI tTYPE DROP ; 
19 : tSPACE ( — ) 32 lEHIT ; . 

11 : tSPACES ( n — ) BEBIM ?AHY HHILE tTYPE REPEAT ; 

12 : tCLIHE ( 1 ~ ) 168 t 86 BLAKKS ; 

13 : tEXPECT (an — ) 'EXPECT 9 >R [EXPECT! 'EXPECT ! 

14 EXPECT R> 'EXPECT ! ; 
15 
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eiKDSKOFr restores FORTH' s screen output routines. 



NIKOOiiON connects FORTH to the window output 



HlHOO'fl? displays the current window paraieters. 



B \ Hindows - nindowino on / off 
1 
2 
3 
4 



KIKDOWFF ( — ) 
[TYPE3 'TYPE ! ICRJ 'CR ! 
[EXPECT] 'EXPECT ! ; 



(TAB! 'TAB ! CPABE3 'PAGE ! 



legal Valve' 



6 
7 
B 
9 
18 
11 
12 
13 
14 
15 



: HIHDQ«QK i — ) . 
£'] (TYPE) 'TYPE f V] (CR) 'CR ! . C'l (TAB) 'TAB ! 
C'l (PAGE) 'PAGE ! £'] (EXPECT) 'EXPECT ! ; 

: KIHDQM? ( — ) 

CR II, Yl: • X19 . SPACE Yia . CR HIDTH: 
HIDTH9 . CR HEIGHT: • KEI6HT9 . CR ; 
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Ft Current file nuiber; directory index for this file. 
FPTR first block of file. 
BCT NuBber of blocts in file. 
EOF e = not end of file. 

UFOATEO Flag indicates Hhethar file Has written to or not. 
DETAILS Controls directory printing: e=5hort l^long fonat 
LOADERR Hot zero if a file Has not found «hen loading. 
'BAT is the block nueber containing the block allocation table. 
KAXBLKS Huaber of blocks on disk that the file system uses. 
ISTBIK The first useable block on an espty disk. 
BAT31ZE is the nuaber of bytes in the block allocation table. 
BAT.BUF-is a buffer to hold the block allocation table wbsn a 
file is open. 



e \ SaAple Prep File Systei * Load Block 

1 VARIABLE Fl -1 Ft ! 

2 VARIABLE BCT 

3 VARIABLE EOF 

i VARIABLE UPDATED 

5 VARIABLE DETAILS 

6 VARIABLE LOADERR 

7 8 CONST AKT/ BAT 

8 328 CONSTANT HAXBLKS 

9 4 CONSTANT ISTBIK 

10 ISTBLK 2t CONSTANT RESERVED 

11 HAKBL^CS 2t CONSTANT BATSIZE 

12 CREATE BATJUF BATSIZE ALLOT BAT BUF 3B ERASE 

13 BAT.BUF CONSTANT FPTR 

. 14 91 4p 104 +P THRU \ Load the rest of the file systes 
IS EXIT 
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DBLOCK is used to read and write only to drive 8. 
GETJAT reads the block allocation table fro* the disk. 

k/niL_wni ni i bca hue uni tu iiie uaafc. 

nBATJ Returns the contents of the ittf entry in BAT (a black.ll, 

nBAT^ Stores n into the ith entry of BAT, 

INIT6AT creates an wpty block allocation table an the disk. 

nthBLK returns the block i of the nth block of a file, or -U 
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3 \ File Syste* - Block Allocation Table 

1 : DBLOCK { blkf — a) DUP B 32B HITHIN NOT ABORT' blk error* 

2 OFFSET 9 >R B OFFSET ! BLOCK R> OFSET ! ; 
3 

4 : GET.BAT ( - I 'BAT DBLOCK P£SERV£D + 

5 BAT.BUr RESERVED ♦ BATSIZE RESERVED - KGVE ; 

6 s SAVE.BnT ( - ) BnT^BUF 'BAT DoLOO; BATSIZE KuVE UFDnTE ; 

7 * 

8 : nBAT3 ( i — blkt )• 2t BAT.BUF ♦ 9 ; 

9 : nBAT! i n i — ) 2t BATJUF + r ; 

10 : IKITBAT BATJUF BATSIZE ERASE ( BAT.BUF ISTBLK 2t -I FILL ) 
U SAVE.BAT FLUSH ; 

12 CODE nthBLK -I I 2 NOV I POP • FPTR 8 KOV IHZ IF 

13 BESIK 8 2 CN? B= IF I 1 SUB aSE B 8 ADO ' BATJUF i 8 

14 ADD B M HOV V ) 8 NOV 1 DEC THEN 8= UNTIL THEN 

15 8 PUSH NEXT 



V2LK? abc^-ts if the block nusber is invalid. 
FPiEBLK finds the first unallocated block on the disk. It 
aborts if the disk is full. 



ENOBLK tarks the given block as the end of file block in the 
BAT. 

ALLOCATE adds the given block to the end of the current file. 



OF.FILE determines if the given block is already part of the 
current file; returns true if so. 



92 

B \ File Systea * Block Allocation 

1 , 

2 : VBLK? ( blkf) -I KAXBLKS HITHIM HOT ABORT* bad blkC ; 

3 : REEBLK ( — blkl ) -I HAXBLKS ISTBLK DO 

4 1 nBATJ 8= IF DROP I LEAVE THEK LOO? 

5 DUP e< ABORT- disk full" ; 

6 : PPTR 8 SKAP ?DUP IF 8 DO . nBATS LOOP THEN ; 
. 7 : nALLlM:AT£ 

8 PPTR DUP neAT9 3 PICK nBAT! nBAT! 1 BCT 

7 SAVE BAT ; * ' . 
le : nDEALLOCATE 

n PPTR , DUP n8AT9 DUP aBAT} ROT oBAT! 

12 8 SNAP nBAT! -i BCT M SAVE BAT ; 

13 : OFJILE? ( bUI — t I )R FPTR J BESIM DUP VBLK? 

14 DUP -1 = OVER I s OR HOT KHILE nBAT* REPEAT R> = ; 
IS 
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B \ File Systei - Testing Mords 
I 

FREECia returns the nuiber of free blocks left on the disfc. 2 : FREECHT ( — n 1 8 HnlBLKS ISTBLK 00 

3 I nBAT3 8= + LOOP ; 

.SAT nrifttf the blcck allocation table. 4 : .BAT CR FILE* • Fl ; . FPTR= ' FPTP. 3 . BCT= • 

5 BCT 9 . BAT.BUF BATSIZE OUltP FREECtU . free blfcs' CR 
6 

lim prints the block nuebers that belong to the current file. 7 ; lim CR TPTR 9 BEEIH DU? 4 U.R nBATS DUP -I = ITnTIL DRBP 

8 CR ; 
? 
13 
11 
12 
13 
14 
* 15 
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QFEH: aborts if a file is already open. 
-QPEH? aborts if a file is not open, 

'LATEST returns a pointer to the iost recently accessed block t. 
LATEST returns the cost recent block nutber tNithout update bit! 
PufiGGED tests the updste bit of LATEST. 

?DRt returns true if the block belongs to drive 5. 

FUFDATE is used in place of UPDATE when writing to- a file. It 

allocates a new block to the end of the file if the written 

block is not already part of the file. 
roLGCK reads the nth block relative to the beginning of the 

current file. 

FSLOGK is ussd in place of ELGCSC to access a file block. 
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6 \ File Systes - File Block Accessing 

1 : OPEN? Fl 9 1+ 8> ABORT' file is openl* ; 

2 : -OPEH? Fl 3 8< ABORT" file not open!' ; HEX 

3 : 'LATEST ( — a 1 PREV OUP 9 ♦ 4 + j 

4 : UTEST ( — blkt ) 'LATEST 9 7FFF AND ; 

5 : ?rLA5BEI) ( — ) 'LATEST 3 8833 AHO !F R> DROP TricK ; 

6 CECIKAL 

7 : ?tR'»' ( — t ) LATEST 328 < ; 

8 : FUPDATE ( — ) -OPEK? 7FLASSEI/ UPDATE 1 UPDATED ! j 

9 : rBLOCK ( rblkt — a ) PTR 3 8= ABORT' fplr=3' 
18 nthBUC CBLOCK ; 

11 : FBLOCK ( rblkt ~ a I -OPEK? 8 KAX DUP BCT 3 - 8< 

12 IF rBLOCK 

13 . ELSE : DROP FREEBLK ' DUP BCT 3 nALLOCATE 

14 OBLOCK DUP 1824 BLANK RiPDATE 

15 THEK ; 
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KrtXFIlES is the number of files supported by the directory size. 

tKTRlfLEn Size of each directory entry. . 

imLEN Kutber of characters in the fileneie. 

'DIR is the first disk block of the directory. . 

ISLKS contains the file block count. Updated at FaOSE. 
BLKl is the first block of the file. Use BAT to find the rest. 
Creation date 
tiie 

Kodificaticn date 
tiM 
File attributes 

'EHTRY returns the address of the directory entry for file n. 
IKITDIR initializes a directory. 



8 \ File Systea - Directory Structure 

1 ?6 CONSTAST KAIFILES 

2 32 COffiTAKT EKTRYLEK 

3 11 COKSTAHT KWLEK . 

4 1 CQH3TAKT 'DIR ^ 

5 ( Offsets into directory entry ) 

6 U CONSTANT CfiUCS 
.7 . 13 CDMSTAHT BLKl 

8 15 COKSTAHT CPJIATE 
? 17 COHSTAHT CRTIHE 
IB 19 COKSTAHT MATE 

11 '21 COHSTAHTnTIKE 

12 . 23 COKSTAHT FHPE 

13 : 'EHTRY ( fl ~ a 1 BiTRYLEK 1824 «/«0D *OIR + OBLOCK ♦ 

14 : IKITDIR KAXFILES 8 00 I 'EKTRY ENTRYIEH 3 FILL UPDATE LOOP 
15 
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SCANOIR takes a pointer to a filena« and searches for i iatch ■ 
to that naie in the directory. If found, it returns a valid 
file nuaber, etse it returns -1. 

" 6ETEMTRY returns the next eipty directory entry for a neH file. 

* FOUHD is used after SCANOIR to tsst for finding a filenate. 
FILEKTPt returns the address of the directory entry for the file 
in ft. 

IHITFILE copies the file pointer and block count into user 
variables and sets the indicator to 'file not iodified*. 
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8 \ File Systei - Directory accessing 

1 ; SCflHOlR < 'naie-— ft ) >R -I KAIFILES 8 DO 

2 I 'EKTRY HHLEH J N«L£K -NATCH 8= IF 2DR0P I LEAVE 

3 ELSE DROP THEN LOOP R> DROP. ; 
4 

5 : 6ETEHTRY ( — ff ) -1 HAIFILES B 00 .1 'ENTRY C3 8= 

6 IF DROP. 1 LEAVE THEN LOOP ; 
7 

8 : FCDND ( fl — t ) If 0> ; 
? : FILEKTRY ( — a ) Fl 9 'ENTRY ; 
18 

U : INITFILE ( — ) FILEHTRY DUP IBLICS * 3 BCT ! 

12 BLKl + 3 PTR ! 8 UPDATED ! ; 

13 

14 

15 
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KAKEFILE constructs the directory' entry for a n«f file. It • 
allocates one block to the new file and sets the tiie and date 
of creation and lodification. The directory entry will be 
written to the dist. 



FCREATE Creates a new file if it doesnt already exist. The 
new file is opened for reading/writing. It returns B ii 
successful! , I if the file already exists, and 2 if the" 
directory is full. 
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fl \ File Systes - File creation 

1 : MAKEFILE ( 'naae fl - ) FREE3LK -I OVER nBAT! SHAP 'ENTRY 

2 DLtP >R ENTRYIEN 6 FILL I SLKl + ! I KriLEK HOVE 

3 1 I leLKS + ! 3TIKE DUP I CRTIME * ! I UTIKE f ! 

4 TODAY 5 DUP I CRDATE + ! I fiDATE + » 8 R> FTYPE ♦ 1 

5 UPDATE ; 
6 

7 : FCP£ATE ( 'naae — t ) 

8 OPEN? DUP SCANOIR FOUND NOT IF 

9 . GHEHTRY DUP 1+ 8> IF 

18 6ET.BAT SKAP OVER ( fl *ni fl) KAKEFILE 

n Fl ! IKITFILE I UPDATED ! 8 

12 , aSE , DROP 2 

13 THEN 

14 ELSE DROP I " 

15 THEN ; 
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FOPEN opens an existing file for access. It sets Fl to the 
file's directory index, and puts IBLICS into BCT and BUi into 
FPTR. Returns 8 if successful I, I if file does not exist. 

FaOSE Krites out the open file's new block count if the file 
has been todified, and updates the lodification date and tiie. 



FDruITE rewves the oiven file froa the directory (by putting a 
8 in the first filenaie char), and releases it's blocks for . 
other files to use. 



8 
1 

2 ; 

3 

4 

5 

6 

7 

8 

9 
18 
11 
12 
iZ 
U 
IS 



\ File Systei - Prograi access to files 



FOPEH ( 'nase — t ) 
GET BAT . INITFILE 



OPEN? SCANDIR DUP FOUND IF 
8 ELSE DROP 1 THEN : 



Fl 



FCLQSE ( — ) -OPEN? UPDATED 9 8> IF SAVE BAT FILEKTRY 
BCT 9 OVER IBLKS ♦ ! TODAY 9 OVER MDATE 4 ! 9TIME SNAP 
MTIKE 4 I 8 UPDATED ! UPDATE FLUSH THEN -I Fl ! ; 

FDaETE t 'nate — t ) OPEN?. SCANOIR DUP FOUND IF GET.BAT 
. 'ENTRY DUP 8 OVER CI UPDATE BLKl ♦ 9 BEGIN DUP VBLK? 
. CUP nBAT9 , 8 ROT nBAT! DUP -I » UNTIL 
2DR0P 8 SAVE BAT FLUSH THEN : 
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KAKE gets the filenaie froa the input ind puts it in PAD. 
KAtI *5!-e5 a n£¥ file aiid lesvss it opea, ."HAKE HT- 

0PB5 opens an existing file for access. 'OPEH XXI* 

CLOSE closes file access, updating file inforestion. 'aOSE' 

DELETE rewves a file fros the directory. Kq file say be open 
Hhen this cosAand is used. 'DELETE lit' 



fiS \ File Syste« - User file cowands 
I 

2 : NAWE ( — a ) 32 TEXT PAD ; 

3 ( EXIT I \ TESTIKS HQRDS 

4 ; KAr^ { — ) NSHE FCREATE DUP B) IF i - If 

5 already exists* aSE .* directory fuir THEN 

6 ELSE DROP THEH ; 

7 ! OPEN ( ~. ) mm FOPEK 8> IF / cift't find' THEH r 

8 : CLOSE ( — ) FCL03E j 

9 : DELETE ( ~ ) KAflE FDELETE B( IF can't find' THEH ; 
16 

11 EXIT 

12 : HULT-LOAD 

13 >IK 2f >R >R a >IH 2! 

14 STATE 3 IF 1 ELSE IKTffiF'RET THEH 

15 R> R> >IK 2! DECIWAL ; 
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(FLIST) types the contents of the given bloct froi the current 
open file. 



FLIST types all itie dIocks in tne current open file. 
(LOAS?) causes FORTH to interpret fros the dist file ( this is 
the ccrial loading process). Nested file loads are ofc. 



IKCLUDE can be used in a source code file to cause another file H 



\ File SystBB - Utilities 
(FLIST) ( nJ -Q?EH? BCT 3 HIN 8 KAX 

2 File: ' FILENTRY KHEM TYPE Block: • 

3 CUP . 16 B DO OR I 2 U-R SPACE DUP FBLQCK 

4 I 64 I + 64 >TYP£ LOOP CP. 

5 EOF 3 IF EHD OF FILE' THEH SCR ! ; 

6 FLIST ( -) BCT 9 8 DO 13 rtOD 8= IF PfiSE Cfi CR CR CR THES 

7 i (FLIST) CR CR CR LOOP ; 

8 : (LOAD) ( 'n» — ) OFFSET 3 >R B OFFSET f 

9 Ff 3 >R FPTR 3 >R BCT 3 >R EOF 3 >R UPDATED 3 >R -1 Ft 
IB FOPEH 8= IF BCT 3 8 DO I nthBLK LOAD LOOP 

n ELSE 1 LCADERR ♦! THEH 

12 R> UPDATED ! R> EOF ! R> BCT ! R> FPTR ! R> Fl ! 

13 R> OFFSET ! : 



to be 'included* or loaded. Use: INCLUDE XY22Y 



15 : INCLUDE ( - ) HAKE (LOAD) 
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These wrd print the contents of a directory entry. 



.EKTEY prints the directory entry for file n on one line. 
Fofiat of directory depends on DETAILS. 

.HEADER prints a heading for the directory coeiand. 



8 

1 : 

2 : 

3 : 

4 : 

5 : 

6 : 

7 : 

8 : 
9 

IB : 

11 

12 

13 : 

14 

IS 



\ File Systeo - Directory Support 
.KAflE ( ft) 'EKTRY KKLEK TYPE ; 
.IBUCS { f I) 'EHTRY tBLKS + 3 4 U.R 4 SPACES 
.BLKl ( fl) 'ENTRY BUCl + 3 4 U.R ; 
.CRDT ( ft) 'ENTRY CRDATE ♦ 3 .DATE 3 SPACES 
•CTIHE ( ft) 'ENTRY CRTIKE ♦ 3 .TIKE 
.KDATE ( fl) 'ENTRY MATE ♦ 3 .DATE 
.KTIHE ( fl) ' 'ENTRY ^ JtTIHE ♦ 3 .TIME 
.FTYPE ( f I) 'ENTRY HYPE * 3 4 U.R 



SPACE 



SPACE 



.ENTRY ( fl) OOP >R .NAHE DETAILS 3 
I «3LK1 I .IBLKS t :mi I .HDATE 
R> DROP J 

.HEADER .' Files:- DETAILS 3 IF 5 SPACES 
.' Type BUI iblks' 4 SPACES .'Created:' 
.• Kodified:* THEN : 



IF SPACE I .FTYPE 
I .KTIHE THEN 



6 SPACES 
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P€.TQ finds the nth printable directory entry. Used far 
•paqeing* the directory listing on the screen. 



f-e contains offset to the first valid directory entry to print. 
HOH£ If true, no entries Mere printed. 
(DIR) prints n valid directory entrys starting at P6 in the 
foraat selected by DETAILS. 



,OIft prints every directory entry (TESTING). 



0 \ File Systei - Directory Display 

1 : PB.TO ( n — fll 1+ -l SMAP 9 00 

2 1+ ( ptr) DUP 'ENTRY M IF 1 ELSE 8 THEH 

3 OVER KAIFILES I- ' IF LEAVE TKEK +LQOP ; 
4 

5 VARIABLE P6 

6 VARIABLE NONE 

7 ; (DIR) ( n ) .HEADER TRUE NOME ! Pfi J PB.TO S¥AP 8 Dfl-* 

8 DUP HAXFILES « IF LEAVE 0 ELSE OOP 'EHTRY C3 IF 

9 FALSE KGHE ! CR DUP .ENTRY I ELSE 0 THEN 
10 SMAP U SI^'AP THEN ^LOOP DROP ; 

11 

12 : DIR .HEADER KAXFILES 0 DO 1 0> I 16 m 0= AND IF KEY DROP 

13 THEN 

14 CR I . I .ENTRY LOOP ; 



poup decrsfients page by th5 current windoK height. 

pgdn advances P'o Dy HindoH size li tnere is lore to display. 

SHOtiOIR iakes a uindoH box on the screen, displays .the Hies, 
and alloHS pageing up or dottn in the list until a key is 
pressed. 



103 

3 \ File Systea - Directory Display 
1 

2 H2 CONSTANT UPKEY 

3 150 CONSTANT DNKEY 
4 

5 : pgup ( - } PS 3 KHEIGHT 9 - 0 KAI P6 ! ; 

6 : pgdn ( - ) NONE 3 B= IF P6 3 KHEISHT 9 * nAXFlLES niN 

7 FG *! THE!; ; 
8 

9 : SHC^DIR ( - ) 8 Pfi ! DETAILS 3 IF KELPSIZE 
16 aSE SELECTION THEN BOX 

U &E6IN CLS 8 0 TAB KKEISHT 3 (DIR) KEY DUP UPKEY = IF 

12 DROP pgup FALSE aSE DNKEY * IF pgdn FALSE aSE TRUE 

13 THEN 'THEN UNTIL KOPJC HIHDC« ; 
14 

15 



425 
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F/P nu£ber of files printed per pa^e. 

.DIR is used to print a disk directory on the printer. 
It advances to the top of a page, prints a header and prints 
up to F/P file entries. 



8 \ File Systei - Directory Printing 

1 53 COKSTAKT F/P 

2 

3 : .DIR ( — ) 

4 a ( entries printed) RAXFILES 8 DO 
OUP 0= IF PABE .1£AKR CR !♦ THEH 
1 'ENTRY Ca IF CR I .ENTRY 1+ THEN 
DUP F/P « IF \m% THEH 

LOOP DROP -i^- 

CR CR FREECHT 22 SPACES . .* Free blocks* CR 
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B \ Satple Prep Screen Support - Load Block 
This «odule contains the definitions that lanage the Saiple 1 

Prep screens. 2 71 LOAD \ Words for changing attributes directly 

3 j8 S9 thru \ Screen Haintenance 

4 67 6B THRli \ user input/outout , • 

5 63 64 THRU \ Screen Haintenance ' 

6 7Q LOAD \ Ccuand Interpreter 

7 65 66 THRU . \ ST/STP/PAUS/CQKT and cceion Kenu Labels ^ 

8 132 139 THRU * \ Status screen background 

9 18S LOAD \ help screen support 

18 69 LOAD \ fake screen displays U TEflPORARY It 

11 IS LOAD \ editor 

12 78 LOAD \ filer screen 

13 188 LOAD \ print screen 

14 72 LOAD \ status screen 

• 15 84 LOAD \ resolve forward references in screens 
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Pointer to current Screen data structure, 

'SCRH returns the address of the currerit screen data structure. 

Fn# returns the address of selected function nutber, 

Fftra returns the currently selected function nueber, 

Fi:4I stcres ths current fuse tisn nusbsr* 

SCSI sets ths address of the current screen ID nuaber. 

>FUHCT returns the address of an entry in the current screen 

-table (painted to by 'SCREEH) for the given function nmber. 

FCHAR returns the ccatand character for the given function 
nuiber frot the current screen. 



\ Screen Support * basic tools 
VARIABLE 'SCPIEN VARIABLE CELLFLS 
16 CCKSTAMT /CELL 23 COHSTAKT 'BAR 



VARIABLE HEKU-QX? 



3 

4 : 


>nffUTLIK£ 24 8 UAB ; : >HLPLIKE 22 IB tTAB j 


5 : 


>KSeLIKE 28 e UAB ; VARIABLE KSGOK? 


6 

7 : 


•SCRN ( — a } 


•SCP£EH J ; 


8 : 


Fnt ( — a ) 


•SCRS 5 


9 : 


FnM ( — n ) 


•SCPJI a- ; 


18 : 


Fnt! ( n — ) 


•SCRH ! ; 


11 : 


SCR* { — n ) 


•SCRK 6 f ; 


12 : 


>FUaCT ( n — 


a ) 


13 


5 t ( /entry) 7 


♦ ( header) 'SCRK ♦ ; 


14 : 


FCKAR ( n — c) 


>FU«CT 4 * M 1 


15 
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KSSFLG if true, disoUy selection Eessaae on. line 23. 
>i1SaLIitE positions cursor at cclucn 8 of the help line. 
>IKFUTLIKE puts the cursor on the last line of the screen. 
U?fiRBH types spaces to center following text- , - r 
RJIAREK fills reest of line nith spaces to clear old text on line 
CENTERED types the text at address 'a" centered in a field sz 
chars wide. 

.KEY prints the cofteand char of the current function.- 



dotK' prints text centered on Message line. Refer to fORTH's 
dot' definition on screen 86. 
F* cotpiles a string to be printed outside the windoM. 
•C* coipiles a string centered on an 88 char line. 
.K* cotpiles a string to be printed centered on the proept line 



8 
1 

2 : 

3 : 

4 : 
S 

6 : 

7 

8 

9 : 
18 : 
II 
12 

13 : 

14 : 

15 : 



\ Screen Support * Message and Protpt Forcatting 

LnARBH ( SI a — ) C5 - 2/ tSPACES }. 
PJ1AR6M ( SZ a — ) C3 - CUP 2/ - tSPACES ; 
CEHTEFiD { sz a — ) 2DUP WAR6H m COURT ITYPE RrtARBK 

dotF" ( — - 1 1 ?R3 mm 

CELLFLG 3 IF INVERSE ELSE UKDERLINE THEH 
ITYPE KORMAL ; 

dote < — I 88 1 ?R8 CEKTEREB ; 
dotH" ( — ) I ?R9 CELLFLS 9 

IF >KLPLINE 68 SNAP UNDERLINE CE)(TER£D NORKAL 

ELSE DROP THEH ; 
.F" COMPILE dotF' 34 STftlKB ; IWtEOIATE 
.C* CCKPILE dote 34 STF.IKS ; IHf.EOIATE 
.H' COMPILE dotH* 34 STRIKG ; IKKEDIATE 
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/CELL Size of Henu Bar cell in bytes. 

*B{iR is the line nuiber of the lenu bar. 

>C£LL positions cursor at beginning of ienu cell for the given 

function. . 

.CELL prints the label for a lenu cell by executing the 2nd 
address in the function table. 
nSEQH nSGGFF turn the selection inforiation on and off. 
CELLOFF prints the cell label with norial video (Hhite on 
black). 

CELLOH prints the cell label in reverse video. 
.KEHU fills the fienu bar outline Hith the text fields defined 
in the screen pointed to by 'SCREEN. 



6 V Screen Supoort - Henu Cells and Labels 

1 ! >CELL ( n - II cl) /CELL X 'BfiR SWP ; 

2 : .CELL ( n - ) OUP >CELL tTAB )FUHCT 2+ JEIECUTE ; 
Z : .BAR 'BAR 1- 8 ITAB 79 ISPACES 'BAR 9 tTAB 79 tSPACES 

4 , . 

5 : CELLOFF t - I 

b C HEX 1 ICfl [ DECIJ1AL 1 FnlJ >CELL /CELL I- NAT ; 

7 : .MEKU ( - ) 

8 1 ftEHL'-WI?-! 

9 UNDERLINE .BAR KOR«AL 
10 e CELLFL6 ! 6 e 00 

a 1 Fn«3 = IF 1 CELLae ! THEN 

12 I .CELL e CELLFL6 ! 

13 LOOP ! CELLFL6 ! ; 

14 : HEHU-OFF ( - ) 

15 « MENU-ON? ! .BAR ] 
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KES3CREEK switches the display to a neH screen. 



ISCRHS^ is increeented by- each new screen definition and used as 

the screen ID. Contains the nuiuer of defined screens* 
The screen ID is U5*d by HE1.P to display the right help screen. 
DEFSCRn is a ccipilsr nord that creates a Screen data structure, 
fhe structure consists of an index <d..7) of the currently 
selected function; a pointer to the previous screen; a pointer 
to a procedure to execute when this screen is selected and dis- 
played; a unique screen ID nusber (screens are nusbered se- 
quentially froA 1 to n as they are defined); and 9 function and 
8 function entries, each. containing three entries: the address 
of a function to execute, the address of a tenu label displayer, 
and a couand character that Kill execute the function. 



\ Screen Support - Screen Data Structure Definition 



NEKSCREHH ( 'screen - 
DO? 'SCREEK 9 = KOT 
IF DUP 'SCREEN ! 
.KENU 

4 ♦ JEIECbTE 
ELSE DROP TKEH. 



) 



\ point to neM screen 

\ print the new ienu 

\ execute the screen proc 



\ nuiber of defined screens 



9 VARIABLE ISCRHS 
IB 

11 : DEFSCRM ( — 1 CREATE B , ( fundi 

12 fl , ( link is filled in later) ' , ( screen proc) 

13 I ISCFJiS *! ISCRKS 9 C, ( screen ID!) . 

14 8 9 DO CCOHPILE] ( ' , ( function) ' , ( text) ASCIK 

15 LOOP OOES> { ~ ) KEKSCREEH ; 
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DO.FUKC Qses given index to fetch function pointer and executes 

It. ^■■.-r^-; 

OFUHC lOves tbs highlighted selector left or right on the tenu; 

bar. 4n is right, -n is left. 
♦FUHC toves the selector* to the right. The selector Hraps 

around if in the rightiost position. ; C : • ... , 
-FUNC aoves the selector to the left. The selector loves to the 

rightiost position if on position 8. p. 
SELECT executes the function pointed to by the current function . 

index in the current Screen pointed to by 'SCREEN. 
DESELECT exits the current tenu and goes to the previously - 

selected ienu. 

CHnR>FH coapares a gives character to the function characters 
in the current screen and executes the function it matches. 



\ Screen Support - Renu cell selection words 



DO FUHC ( n — ) CLR«3G .>FUHCT 9EIECUTE 



OFUSC 
CLRK36 
♦FUHC . 

SELECT 



( n — ) 
CELLOFF 

I — ) 
( ™ ) 

( — ) 



J 
6 
7 

8 : DESELECT ( — ) 

V 
18 
11 
12 
13 
14 
15 



Fn« + 7 AMD - OUP^Fnl! ..CEU 
I <>a»}iC ; V 

-I OFUWC >; v; : i ^ 
Fnf9 OO.FUNC ; 

CLRHSS rSCRN 2t 3 . HEKSCREEN 



CKAR>FH ( c — ) 8 8 00 DUP 1 >FUHCT A ♦ C3 
IF I OO.FUKC , LEAVE TKK LOOP DROP j 
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' e \ Screen Support - Status Header 



.TITLE prints the systea title on the top line of the screen. 



.STATUS prints the status line on line 2 of the screen. The 
contents of the fields will be updated by the STATUS task; 



1 
2 
3 
4 

S 

7 ; 
8 
9 
IB 



uf the screen. 



12 
13 
14 
15 



.TITLE 
18 2B TAB 
12 34 TAB 
2i 32 TAB 



SP IB.BBB SfirtPLE fREPARATIOH SYSTEJl 
VER 8.1' ' ' 

hit any key!' 



KEY 



.BAKHER « B TAB 



.BAii'KER displays the status the status header on the top 2 lines 11 \ 



•UHDERLIHE 
UHDERLIKE 
UHDEPIINE 

UNDERLINE 
UKDERLIKE 
NORKAL : 



4 SPACES Status:' 

READY ' 
h SPACES TODAY 9 .DATE 
I SPACES 9TIRE .TIHE Z SPACES 
30 SPACES .' Method: Ho Method • 

5 SPACES 



;85 



64 



B \ Screen Support - Hsou Bar Screen Layout 



KID prints the horizontal line for 1 cell. 
IBOXTOP drans the top of one cell. 
IBuXniD draHS the eiddle line of a box. = 
IBOXBTR sakes the botto* line of a box. • 
TQPP draws ? box tops. " . h-.j 
B3TK ■ bottoss 
CVDRS • iiddles 
.BAR prints the Nhole senu bar. '^o--: 



.FRAME builds the sain screen outline: 
and an espty tenu bar. ^ r 



the status header and 



I 
2 

3 
4 
5 

7- 
S 

9^ 
IB 
II 

12 = 

13 - 
14 
IS 



.FPJIKE ( — ) 
FASE .TITLE PAGE 
1 e TAB 168 TOP ! 



.BANKER 
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Cro is a function key routine that Kill accept a FORTH coassnd 
fro* the keyboard and execute it^^ returning 'back to PREP. " 
Characters ere echoed on the inputline (line 25) 

)COHTROL sends a cosfisnd code and a cbu and string pointer to 
the control task and naits for an acknawle^eiint iessage^ ' ' 
Displays an error tessage if not a positive ack?* ^ 

HTHSCTL sends a caitand to the tontrol tas^Md redisplays the 
start/stop and pause/continue eenu fields to shoM neH COisand 
selections. ( The cosaands depend on the current run status) 

ST/STP is the start/stop tenu cowand, either starts or stops a 
lethod. 

PS/CKT pat!«55 a running tethod or continues a paused lethod. 



8'- A Screen support - ST/STP/PAUS/COKT and coaton Menu Labels ' 
1 \ : >COKTROL (an — ) TB^CGHTROL SEND KSS 
V^^^ FROMj:ONTR0L^«S6iiAIT' AC1C = NOT IF .ERROR ELSE 'DROP TKEk' 



ST/STP ( - ) 
PS/CHT ( - ) 

'kHICKSTATE' ( 



KULL^STRT/STOP TOlCONTRCL SEHD^KSB 
Klfll PAUS/COKT TO.COKTRQL SENoImSB ' 



n ) ROK STATUS a ^ ^ ' ^ ^ ^ = 

8 t RUHBIT PAUSEBIT OR 1 LITERAL' ^AHD^ • ' 

9 : SHO-CO!frROL ( - ) ' * 

18 DUP Foia = HOT ^ ' - ^ ' V 

U IF eCELLFLB! THEK .Cat I CELLRS ! 

12 VARIABLE LASTSTATE 

13 : KEH3TATE? ( • ) - ' 

14 HHICHSTfeTE LASTSTATE J = HOT EHU-OK? 9 AKQ 

15 IF 8 SHO-CONTROL 1 SHO-COHTROL THEN : 
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0 \ Screen support - ST/STP/PfiUS/COKT and cotton Kenu Labels 

Use EKPTYCL for any undefined lenu field. • j • EMPiya .F' • .H" ' ; \ cipty cell ■ 

. KELPTXT shoHs the help coiiand field. 2 . ' 

, . 3 : HELPTXT .F* HELP • ,K* D 
HHICHSTAT? returns status of tethod 9=idle, Upause, 2-runninfl 4 

5 : STRTTXT ( - ) KHICH3TATE DUP USTSTATc ! 

6 IF .F' STOP ' .H* Stop Running' 
SiKiTU sho«5 the START or STOP coMand dependin9 on current run 7 ELSH -.F' START • 

B ,H* Start Preparation Procedure* THEM : 
9 

10 : PAU3TXT t - ) HHICH3TATE DUP LASTSTATE ! 

fnUStTXT shoHS PAUSE, blank or CQHTIWJE lenu co«iand depending 11 Z CASE IF EHPTYCL 

on run status. 12 else 1 CASE IF .F' PAUSE • 

13 .H* Suspend procedure operation temporarily* 

14 ELSE DROP .F' COMTIKUt * 

15 .H* Continue running procedure* THEK THEN : 
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XRST is used after expect, Siailar to RESET in FORTH Mhich 1 

is un-findable. 2 

INPUTTXT gets a text string froa the keyboard and returns the 3 

address of the counted string (count in first byte). 4 

5 

iITrRunrT ia giyni the iuuVess of a coufited String to type as a 6 
user proipt on the inputline.* The address of the input string. 7 
is returned. 3 
KEYPRO«?T types a given proapt string on the lessace line-and 9 
awaits a keystrofee. It clears the proipt and returns the key, IB 

11 

YES? returns true if user typed a T or *y*, false otherwise. 12 

13 

.ERROR types an error string (counted) on the iessage line. U 
.M3S types a (counted) tessage string. 15 



\ Screen Support - User Input / Output Words 

: XRST 8 BLK ! 8 >IH ! CHT Ca CNT 1+ CI ; 

: INPUnXT ( — a) PAD 72 BLAJJK S8 3 S3 lEXPtCT XRST 

I KCRD DUP CJ It PAD SWAP <CKCVE PAD ; 
: TXTFROilFT ( ap — ai ) >IK?UTLIH£ CC«KT tTYFE ( proiptl 

I>!PljniT 24 ICLIKE ; 
: ICEYPROilPT (a — c ) >IKPUTLIK£ COUNT ITYPE KEY 
24 tCLINE ; 

: YES? ( a — tl KEYPROttPT OUP 121 = SHAP 89 = OR ; 

: CLR«3S ( - I K3B0H? S IF 28 tCLIKE B RSSCN? ! TKEK ; 
: .«Se { a - ) CLPJ1SS >RSSLIN£ 89 S«AP CENTERED 1 fISSGN? ! 
: .ERROR ( a - ) .KSS ; 
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fl \ Screens Support - Input Words 
I HEX eCS CGKSTAHT ESC 



6LEK: Returns true if the naie length is 8. 

ESC? Returns true if the escape key was the last char typed. 

LEGAL? Returns true if all characters in naie are legal. 

FILEftnKE prompts the user nith the given string, and processes 
his input. If return is typed with no chars, or the esc key 
is typed Kith any input, false and no input is returned to 
caller. If any non-legal characters are found, an error isq 
is displayed and user is re-proipted for input. A legal input 
Mill return the address of tfie counted input string and true. 



BLEN? ( a 
ESC? (a 
LEGAL? ( a 
DO I ca 



2 
3 
4 

c 

b 
1 

8 

9 
18 
II 
12 
13 
14 

IS DECIKAL 



ca 8* ; 

DUP ca 4 



03 ESC 



— t ) 

— t ) 

— t ) TRUE SKAP COUMT OVER * SJiAP ( t 
21 7F HITHIW KOT IF DROP FALSE . THEK 



atn a 
LOOP 



FILENAME 
6E6IK 

DUP TXTPROnPT 
DUP 8LEN? IF 
OUP ESC? IF 
DUP LEGAL? IF 
DROP ( input) 
AGAIN : 



(a — 'n* t I f ) 



20RO? FALSE EXIT THEM 
2DftQP FALSE EXIT THEN 
SNAP DROP TRUE EXIT • THEN 
I' Illegal naie! Retype* .ERROR 



BELL 
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These definitions are being teiporarily used to display 
siiuietcd 'screens' until actual screens are built. 



8 \ Screen Support - Fate screen displays II TEKPORARY II 
1 

2 ZZ^ CQNSTAKT OimKYSGREENS 
3 



CUnJIYSCFIEHS 

DUnr.YSCRE£IiS 24 
DUWJYSCREENS 3 + 
WJrtiTfSCREEHS ,4 ♦ 



COHSTAHT STSBIK 
C0K3TAKT ItTHDSL^ 
COHSTfiHT PRTRBLK 
COMSTAHT SYTMBU 
CONSTANT FLRBLK 



PSTATS STSBIK BIK>SCRN 

PKTHD MTHDSIK BLK>3Cf:N 

FRPRT PRTRBLK BU:)SCRK 

PSYST SYTMBIK BLK)SCRH 

PFILR FLfJLK BLK>SCPJJ 



\ fake status 
\ • tethod 
\ " print 
\ ' systea 
\ ■ filer 
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OtO is a function key routine that Mill accept a FORTH coiaand 
fro» the keyboard and execute it, returning back to PREP. 
Characters are ecftoed on the inputlins (lirte 25) 



8 
I 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



\ Screen Support - CoMand Interpreter 



mi — ) 

CIRKSG 

8 24 88 8 KIHDGIi 
8UERY INTERPRET 



(PASE) 8 8 TAB 



e the CGuand selector across the eenu. 
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KAT is used to flodiry the attribute of screen text without 
iodifyinQ the contents of the charac 



HEX CODE (KAT) ( attribute n a - ) 

« FOP I FO? 2 PGP . 

I PUSH HI ttOV 

DISPLAY LBA 8 ES LS5 

6ES1K 

26 C, ( ES:) LQ3S 
2 HI 8 HI HOY B STOS 

LOOP 

8 IS SS6 0 ES LSS I POP 
mi OECLKAL 
: HAT ( attribute In! coll n • ) 
ROT 88 t ROT ^ 21 (HAT) : 
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Pf.EV5CR puts the link to the previous screen into a screen 
descriptor. This used after the 2 screens are defined to 
resolve the lomard references. PREVSCR THIS PREV 

This screen resolves the forward references in the screen link 
pointers. Load this bloc;: after all the screens have been 
loaded. Add the links for all screens that are defined in 
the SYStet. These links are foUoned when the user exits 
a screen. The lin«:s point to the screen to "return* to. 
Note that the Status screen is the hote screen, and points 
to itself. 



84 

e \ Screen Support - flesolve forward references in Screens 
1 

2 : PREVSCR ( ~ ) ' 2* ' SKAP ! ; 

3 , . 

4 \ this screen pre/ious screen 

5 PREVSCR STAT SCR STATJCR 

6 PREVSCR FILER.SCR STAT.SCR 

7 FUEVSCR PRHT.SCR STAT.SCR 
B 

? F0R8ET PREVSCR 
IB EXIT 
11 
12 
13 
U 
15 



4Q6 85 

a 

I 

2 
3 
4 
5 
h 
7 

8 ■ 
9 

18 
11 
12 
13 
14 
15 
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1 . 
2 

T 

4 

5 
6 
7 



9 
IB 

11 
12 
13 
14 
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0 \ Status Screen - Load Block 
* . 1 

IJHLOAD causes the control task to load a function file. • 2 : SSTEF C J HUa ISTEP TO CQKTftOL SEKD KS8 y 

It procpts the user for a filenase and sends a load ccaiand and 3 

the filen3«e pointer to the control task. 4 : S.FNLOM { - ) V File to Load?: ! FILEHftKE IF !♦ 

5 FKLOAC TO.CQKIF.0l 5END.KSB THEK ; 

Q 

7 73 74 THKU . * 

8 HIT 
9 

16 
11 
12 
13 
14 
15 



6 \ Status * Menu label procedures 

1 : PRKTTXT ,F' Print ' 

2 .H- Print Utility* j 

3 : KTHBTIT .F' Hethods " 

4 .H* Create or Kodify a «ethod' ; 

5 : LQADTIT .FV Load " 

6 .K' Load a Kethod to Run* ; 

7 : SYSTXT .F' Systea * 

8 .H" Access to eore Systea Functions* ; 

9 : FILCTXT .r* Filer ' .K* Xana^e files* ; 

18 : ISTPTXT .F* IStep * .H* Step Through the Procedure* ; 

n : EETRTXT .F* Editor * .H' Edit Text Files* ; 

12 EXIT 

13 

14 

15 



395 74 

8 \ Status - Screen Definition 

1 : STftT.PRQC 

2 STAT-Oti? HOT 

3 IF' CLS STAT-OH SThmIS-BKS THEH ; 

4 ■ 



5 \ fl 


proc 


text 


char 




6 OEFSCSK STAT SCR 


STAT PP.GC 




7(6) 


ST/STP 


STRTHT 


e 




8(1) 


PS/CHT 


PAUSTn 


fl 




9(2) 


SSTEP 


ISTPTXT 


1 


« 


10 ( 3 ) 


S.FKLOAO 


LQAOTXT 


1 




11 ( 4 ) 


FILER SCR 


FILETXT 


f 




12 ( S ) 


Pm SCR 


PFJITTU 


P 




13 ( 6 ) 


FEDlf 


EDTRTXT 






14 ( 7 ) 


HELP 


KELPTXT 


h 




15 











13*1 .lAKi 1 octet Oioi^ai \ C'^*mm%^r^ m— « 
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8 \ Filer Screefi - Load Block 
• I 

FJEL prwpts the user for the Hlenaie to delete and deletes 'it 2 : F.oa ( - I V File to Delete?: • FILENAKE IF 14 FDaETE 
if possible. 3 IF V File not Found' .ERROR THEH THEN •SCREEK aEIECUTE ; 

4 

5 35 4 +Df?IVE LOiiO \ Loid disJ: initi'aliration 
6 

F.FKT Hill foriat a diskette in drive B. IHITIALIZE actually 7 : F.FWT (-) f Erase all data on diskette? ty/K)* YES? IF 
loriats the dist (erasing any data), IKITBAT initializes the 8 V Insert* diskette in drive fl. Press return «hen ready* " 
block allocation table, and IHITDIR initializes the directory, ? KEYPROaPT 13 = IF V FORnATTIHS../ .HSB IHITIALIZE 

IB IHITBAT IMITOIR FLUSH V Done' .HS6 THEK THEM ; 

It 

12 79 B6 THRU 

13 EXIT 
14 

15 
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0 
I 
2 
3 
4 
S 
6 
7 
B 
9 
IS 
11 
12 
13 
14 
IS 



\ Filer - Henu Labels 

RNnTXT .F' Renaie ' .H* Change a File Hae* ; . 
CPYTXT ,F' Copy ' .H* Copy One File to Another' ; 
DELTXT .F- Delete ' .H' Delete a File' ; 
FRKTTXT .F' FoTiat • .H' Rake a Blank Disk for Files' ; 



401 SB 

8 \ Filer - Screen DeHftition 

The filer screen displays the disk directory. I : FILER.PROC 

2 3TAT-0FF CLS I DETAILS ! SH08DIR fl DHAILS ! ; 
3 



.4 \ fl.. 


proc text 


char 


S DEF5CRN FILER SCR 


FILER.PROC 


6(B) 


ST/STP STRHXT 


B 


7 11 ) 


PS/CHT PAUSTXT 


a 


.8 (2 ) 


BELL RHKTXT 


r 


9 13) 


BaL CPYTXT 


c 


IB ( 4 ) 


F.DEL DELTXT 


d 


11 ( S ) 


F.Fnr FRKnxT 


f 


12 ( 6 ) 


BELL EHPTYa 


B 


13 ( 7 ) 


HELP HELPTXT 


h 


14 






IS 
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reiBuSY Hhen true, the printer is busy and can't be used by, 
another task. 

(FPRIKT) prints all the blocks in the currently open file, 
(DPRIMT) prints the disk directory on the printer. 

00_Fp;T sets the printer busy {Uq and executes the given 
print routine. It Haits for printer idle before returning. 

fPRiKT proipts the user for a fiienaee, and sends it to the 
printer. 



DPftINT querys the user before printing the disk directory on 
the printer. The directory is printed in detailed forsat. 



8 \ Printer Screen - Load Block 

1 VARIABLE PftTBUSy 

2 : (FPRIMTI TYPIST fiCTIVATE FLIST FALSE PRTBU3Y ! STDP ; 

3 : (BFfllKT) TYPIST ACTIVATE .DIR FALSE PRTBUSY ! STOP ; 

4 ' ' 

5 : DO.PRT ( a — ) TRUE PRTBUSY'! 

6 r Busy...' .HS6 EXECUTE BEBIH . PAUSE PRTBUSY i ^ mil 

7 r Done' ;«3S ; 
8 

9 s FPRINT *• Enter File to Print: • FILENAHE IF 1+ FOPEH 
IB IF r File not found' .ERROR EXIT THEfl C'l (FPRIHT) 
11 GO PRT FaOSt THEM ; 

12 

13 : OPRIKT V Print the disk directory? (Y/Nl* YES? IF 

14 DETAILS 3 1 DETAILS ! C'] (DFRIHTJ DO PRT DETAILS ! THDJ 
* 15 139 IIB THRU 
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8 \ Printer - Kenu Labels 
1 

Here are the coaaand labels that appear on the printer screen. 2 : PDIRTIT .F' Directory' .H' Print File Directory' ; 



4 
5 
6 
7 
8 
9 

18 
il 
12 
13 
14 
15 



PFILTXT .F- File ' .H' Print a Disk File' ; 



B \ Printer - Screen Definition 
1 : PRKT PROC STAT-GFF CLS ; 
2 



3 \ fl 


proc 


text 


char 


, 4 DEFSCRK .PRHT SCR 


PRHT PROC 


5 ( B ) 


ST/STP 


STRTTXT 


8 


6 ( 1 } 


PS/CHT 


PAUSTXT 


8 


7 { 2 ) 


DPRIMT 


PDIRTU 


d 


8(3) 


FPRIHT 


PFILTXT 


• 


9(4) 


BELL 


EMPTYCL 


8 


le ( s ) 


BELL 


EWPTYCL 


6 


n ( 6 ) 


BEU 


EMPTYCL 


8 


12 C 7 ) 


HELF 


HELPTH 


h 


13 









14 
15 
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ISTHaP is the 4\%k screen nuiber of the first helpscreen. 
IHELPS is the nutber of defined help screens. 
^ HELPAfiftAY contains help screen nuibers for each iajor systei 

screen. The 8th entry is reserved for general systee help. 

Each of these help screens i; a •chsptsr' heading, Mith further 

helpscreens ayailable by using up or donn arron keys, 
SUBJECT points to one of the chapter screens in HELPARRAY. 
KcLPSCR is the current help screen I, 
BLK>SCR displays a given disk blocic as text. 
HELPSUBJ selects a help chapter based on oiven screen nuBber. 
FINDHELP gets current screen and selects the right help chapter, 
+SUBJ advances ♦-n chapters fro» current chapter and shows help. 

Used for paging through help subjects. 
*HSCR advances *-n screens froe current help screen. Used to 

"flip' pages of help screens. 



6 \ Help Screens - HELP Screen support 

1 318 CONSTANT ISTKELP 

2 9 CONSTANT IHELPS 

3 CREATE HaPARRAY - 

4 e ( reserved) C, < ( filer) C, 7, { ^rint) C, 0 ( status) C 

5 VARIABLE SUBJECT 

6 VARIABLE' HELPSCfl 
BLOSCRN ( serf 

BLOCK I M t + 64 >TYPE LOOP 
.HELP ( —1 HELPSCR 5 ISTHELP 



7 : 
S 

9 : 
IS : 
U : 

12 \ 

13 \ 

14 : 



) CLS 8 e TAB 16 8 DO IB TAB DUP 
DROP ; 
+ BLK>SCRH : 



HELPSUBJ i serf — ) DUP SUBJECT ! HELPARRAY * O HELPSCR ! 
FIKBKELP ( — ) SCRt C3 HELPSUB-J ; 
: ♦SUBJ ( n — ) SUBJECT 5 + 8 KAX ISCRNS 3 NIK HELPSUBJ 
.HELP ; 

4H5CR ( n — ) HELF-SCR 3 ♦ 8 KAI IHELPS KIN HaPSCR ! .HELP 



IS 186 187 THRU 
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8 \ Kelp - Function key table 



HJQKE returns user to original help screen keyed where he is. 

H^PGU? pages to next help subject 

H^PSDK • previous 

H.LH' pages to next help screen 

HELPKEYS is the function key table for help screens. 



I 

2 : 

3 \ 

4 \ 

5 : 

6 : 
7 

8 CREATE HELPKEYS 



H.HOKE FIMDHELP .JCLP 
: H.P5UP 1 +SUBJ ; 
: H.P8DH -1 tSUBJ ; 
K.UP I 4HSCR ; 
H.DK -I fHSCR : 



9 ( 88) 


8 


1 


8 


1 ^' 


» B , 


18 ( 84) 


8 




8 


f B 


1 B f 


11 ( 88) 


8 


1 


8 


1 a 


t B , 


12 ( BO 


' H.HOWE 


f 


8 


f ' H.UP 


1 B , 


13 ( 98) 


8 


1 


8 


f B 


1 B , 


14 ( 94) 


8 


t 


B 


r • H.ON 


r B , 


15 ( 98) 


8 


t 


a 


f B 


, ' SHAPSHOT , 
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HELP displays the helpscreen keyed what the user is doing 
(Hhat systfii screen is displayed), allOHS pagsing through 
the helpscreens, and waits for undefined key before 
redisplaying current user screen. 



8 
1 

2: 

3 . 

4 . 

5 . 

6 . 

7 . 
B . 
9 

18 : 

11 

12 

13 

14 

IS 



\ Help Screens - HELP 

HELPIflFO SELECTION BGI 
• Help JCeys: 



Pgtfi> 

PgW 

Koie 

PrtSc 

Esc 



Page ■ 
This Subj • 
Print Scrn ■ 
Exit Help ' 



CR 
CR 
CR 
CR 



HELP 1 - ) 
STAT-OFF l£IW-flFF 

KELPICT KELPSIZE BOI FIHDHELP .ffiLP 'FKEYS 3 
('] KELPKEYS -nCEYS ! BEBIH KEY -FUHCTICN? UNTIL 
•FKEYS ! WORK MIKOOH 
'SCREEN 9 8 'SCREEN ! EXECUTE : 
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This is Uie Function Editor that is used to edit user defined* 
functions Hritten in FORTH. It can 4i50 be used to edit any 
genera! text file, including parawter files and Method files, 

Ttiis editcr is based or. the FORTH Inc. fucntion fcey editor found 
CTi Screen 72 of the Level 3 Source disk. It has been eodified 
to use the output MindoKs of sasple prep, and uses the prep 
file SYStes for all disk 1/0. 



15 



8 \ Text File Editor - Load Screen 
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VARIABLE EDXIT V set true to exit the editor 

74 4 ♦DRIVE LOAD 

16 LOAD 

75 4 ♦DRIVE lOAD 

17 22 THRU 
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\ File Editor - Function key table, cursor type 
CREATE 'KEYS 53 ALLOT 'KEYS 58 ERASE 



'FUHCTIOM ( k - al 59 - 2t 
:K ( k) : LAST ? 9 CFA 2^ 



'KEYS ♦ : 
SKAP 'FUkcTIOH 



5 : PJKCTIOf; ( k) SUP 59 34 SJITHIS IF 'FUNCTICJi ;aECUTE 

h ELSE DROP THEH j 

7 

8 HEX CREATE CT 78Q? , ( cursor type) 

9 
1?. 
11 
12 
13 
14 
15 



CODE CHOICE CT 1 HOV 1 HI 1 XCHS 8 1 CT W KEXT 

RCP THEK ; 
: +CLIRSOR ( a) ' CURSOR CT 3 cursor ; 
: -CLtRSOR ( a) 'CURSOR 788 cursor ; 
: BLINK 8888 CT ♦! ; 
DECinAL 
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UO is the only reference to disk l/Q. le lessages whenever 
Gf BLOCK, but deals only with file relative block nuebers/, 
LAD returns the address of the nth line of the current block, , 
fetching it free the disk if necessary. 

ELEL and any other word which lodif ies the text on the screen . 
calls FUF3ATE to tark the current disk block as todified. 
The FUPCATED block iiill ulti«atly be tiritten out to the disk 
when that block's buffer needs to be reused by BUFFER, either 
fey accessing other disk blocks, or by the file CLOSE operation 
Mhen exiting the editor. 

The directory and disk allocation inforiation are updated Mhen 
the file is dosed. 



\ File Editor - Line operations 



u 

1 

2 

3 

4 

5 

6 

7 

8 

9 
18 
11 
12 
13 

14 65 :K -LINE 

15 66 It *BLOCK 



C/L I SCR a FBLOCK ♦ : 
LIKE LAO ; 
CLAD COL ♦ ; 

C/L COL - ; : LIKES 
SUP LAO C/L BLANK FUPDATE 



{ - n) L/S LIKE 
a SKAP <G0) ; - . 



LAD ( n - a) 
CLAD ( - a) 
<ADDR ( - a) 
COLS ( - n) 
CLRL ( n) 
C/L SPACES ; 

.LINE <A1)DR COLS >TYPE ; 

.BLOCK LINE LIKES DUP IF I* THEN 8 DO DUP 0 OVER (60) 
LAO C/L mPE U LOOP DROP ; 
xKL ( n 0) SKAP LAD CUP ROT * C/L <CnOVc FLtPOATE ; 
KLDN < n) C/L xKL ; 
HLUP ( n) C/L REBATE xKL : 



<ADDR COLS BLANK FUPDATE COLS SPACES ; 
-LIKE LINE LIKES 8 DO !♦ DUP CLFl LOOP 



PAD OWGINAL 
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EHrH.OH turns on both eiphasized and double-strike codes. 
ErtPH.OFT resmes ncrial printing. 
((U.STnTE points to the opposite print lode routine, 
Cb'R,ATft stores the currefit printing attribute. . 

NOM causes printino to be norial brightness, (the 256 is 

replaced by the address of BftlBHT belo«) 
tnlGKT causes prlntinv to be eaphasized and double struck. 
Given the nert char's attribute, BRIBHTKESS wil] flip the 

printer into the proper print lode il the attribute is 

different froi the previous char's. 
,CHR prints a character, replacing a null Mith a blank. 
J.CHAa fetches the char and it's attribute froi the screen 

and prints it. Kote that screen leiiory is in different segient 



e \ SMAPSKOT words 

1 KG EKPH.OH 4 C, 27 C, 69 C, 27 C, 71 C, 

2 ttSG EHPH.OFF 4 C, 27 C, 78 C, 27 C, 72 C, 

3 KSG UHDL.ON Z C, 27 C, 45 C, 49 C, 

4 KSG UNOLJFF 3 C, 27 C, 45 C, 4B C, 

5 VARIfiBLE CUP.ATR ' * 

6 : NORK ( — ) . 7 CUR.ATR ! UHDl.OFF ; 

7 : EMPH ( ~ ) 112 CUR ATR ! UMDL.OFF EKPK 0« ; 

8 : UMDL ( — I I CUR.ATR ! EMPH.DFF UNDL ON ; 

9 : BRIGHTHESS '( itr ~ ) OUP 7 = 
18 IF KORii DROP 

11 ELSE 112 = IF EHPH ELSE UNDL TH£H THEH ; 

12 ! .CHR ( c — ) OUP 8= IF DROP 32 THEM EMIT 

13 : 5, CHAR ( dadr — ) 

14 E9 DUP 255 AND SUAP 256 /( c atr) BRIGHTNESS .CHR 



15 46 LOAD 
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iLIKE prints the given line frot screen teiory. Reverse video 
chars Hill be eiphasized. 

FaiSCR prints the entire screen. 



8 \ SNAPSHOT - screen printing utility 
1 

2 : ILIHE ( I — ) 

3 KORit SB t 2t DUP 168 ^ SKAP DO I U 9.CHAR 2 4tQ0P 
4 

5 : FULLSCR ( — ) 

6 25 6 DO CR I HIKE LOOP ; 
7 

(SKAFSHOTi is the coiaand to be executed by the printer task to 8 : (SKAPSHQT) ACTIVATE FULLSCR STOP ; . 

print the screen contents. 9 
SMArSKOT sends the coaaand froi the tersinal task to the yinter 18 : SNAPSHOT TYPIST (SHAPSKOTJ ; 

11 
12 
13 
14 
15 



task. 
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6 
7 
B 
9 
18 
U 
12 
13 
14 
IS 
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These lessa-je tokens are used to coaiunicate between the user* 
and the control tasks, fiessages sent to the control task 
consist of a co«3nd token fro* this list, and a pointer to a 
'-rinc-. u-t string is used to pass filenaees tc the file 
load ccsfiands, and possibly to pass a FOSTH coBisnd string to 
a (yet undefined) coiseind interpreter. All other cosaiands 
can send a HULL pointer. 

Each coiftand sent to the control task will be foil owed by a 
response token and a test string pointer indicating success or 
failure upon trying to execute the cossand. An ACK response 
Hill send a null pointer, which can &e ignored; while a KAK 
response will send a pointer to an error eessage which should 
be presented to the user. 



fl \ Task Support - Message Tokens, Load Block 
1 

2 \ Messages to control task: 



3 1 


CONSTANT 


ST.RT/STOP 


\ start or stop running' 


4 2 


COHSTAKT 


FAL'E/CGIU 


\ pause or,cdntifiue running 


5 3 


COHSTWiT 


ISTEP 


\ do just one step 


6 4 


CONSTAHT 


KLOAO 


\ load a lethod file 


7 5 


CONSTANT '.FKLOAD 


\ load a function file " 


8 6 


COMSTAfiT 


CTLR3T 


\ reset the control task 


9 7 
16 


CONSTANT 


ICTLCMOS 


\ nuiber of defined control coisands 



11 \ Responses froi control task: 

12 \ 4? CONSTANT ACK \ positive acknowlegefient 

13 \ 80 CONSTANT KAK \ error! 

14 118 123 THRU 
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c,,K ^ ^ ^^^'^ Support - Task Coeaunication words 

Each fisssage* consists of a 8 bit token, and a 16 bit string I 

cFffSsrK.^. „nfn fK. « . XX • . ^ ^^-^^ TO.CQNTROL 3 ALLOT \,co«ar.d*to control task 

Kaits until the fiessage buffer js eapty and puts the 3 CREATE FRQH.CQfiTRQL 3 ALLOT \ rasponse froe control ta=k 
given eessage. in the buffer. The eessage is taken fay another 4 « «niroi m-t 

cr-'J: . • 5 : SEfaiJSG { ptr n a ~ ) BE6IH PAUSE DUP Ca 6^ UNTIL 

bci.flaS reioves any eessage xn the given isssage buffer 6 SSAP OVER C! 1+ ! ; 

ind eiipties the buffer to allcH another aessage to be placed. 7 
M55HAIT -aits for a «ssage to appear end then returns it. 8 : GET.MS6 ( a ~ ptr n) DUP >R 1+ 3 I-W R> 3-ERA^r . 

IlL^rL*"^^' °^ 18 :KSEHAIT ( a — ptr nJ BEGIN PAUSE CUP C3 UNTIL SET MSB 

cede (8 If no lessage waitingl, bytes 1,2 are pointer to string. 11 

TO.COKTROL contains a cossand for control if byte 6 not 8. 12 : CTL ABORT 

FROK.CGNTROL contains the response to a coatand if byte 8 not 8. 13 1 FROK CONTROL SEND KSS ABORT • 



14 
IS 
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CI contains screen offset for typing to screen. 

SCTAB positions CI to line, col of screen 

)CRT 'types* text to the screen without using FQRTH's output 

routines, (useful for background tasks that dont have output 

routines defined.! Text is in inverse video. 
HERS sase as )CRT but in norsal video. 

{| Start nuiber forsatting for output. 
Forsat buffer is below the TOP user variable (ref FORTH scr 75) 
l> Finish nuiber foriatting, gets address, count. 
:83 Converts one deciial digit and one iinutes digit <aB - 5?) 
(•ins) Foriats and prints the given value in the following 
foriat: 18:32 Used to display the tiie of day. 



1 19 

8 \ Task Support - Background task CRT printing 

1 VARIABLE STAT-ATTR HEX 738 3TAT-ATTH ! DECIiJAL 

2 : SCTAB { 1 c — ) SHAP 8S t + 2t CI ! ; 

3 : >TERK ( adr u - ) 

4 2t CI 3 OVER CI 4" m ROT ♦ SWAP DO 

5 DUP C3 STAT-ATTR 9 OR I CRT3E6 EI U 

6 2 +LOOP DRUP ; 

7 HEX 

8 : UKOTERM 

9 STAT-AHR ; >R 18B STAT-AUR I HERN R> STAT-AHR ! : 
IB DECIMAL 

11 \ : SEXTAL 6 BASE ! ; 

12 : {l ( - ) TOP PTR « ; 

13 s i> ( d — a c) 2DR0P PTR i TOP OVER - ; 

14 \ : :B8 DECIMAL I SHTAL I DECIMAL 58 HOLD ; 

15 \ : dins) ( n — 1 B (I :88 ff I l> U«0>TERN ; 
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Cmm is the equivalent of EKIT for tasks nithaut output 
routines ' 

E^vTERI! is tne equitaient ol SPACE tor tasks without outout 
r routines. *^ 

COU}TER« is the equivalent of CENTEF^D for tasks without 
. output routines (CEHTEREO is defined in windoHS). This ' 
version autoiaticaily truncates strings that are too 



B 
I 

2 ; 

3 

4 

5 J 

6 

7 

8 

9 

ID : 
11 

12 
13 
•14 
15 



\ Task Support - Background task CRT printing 



t OTEftM 

'S 1 >TEfln DROP ; 

SDTERN 
?OUP 

IF 8 00 BL OTEfiH LOOP 
THE« y 

C£MT>TER» 

2DUP C5 m OVER C! 
2KJf C3 - 2/ SP>T£RH 
DUP COUKT >TERn 
C3 - OOP 2/ - SP>TERn : 
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These variables are used to iaintain the systei status 
inforwtion. For each itea in the systei that needs it's 
status displayed, there will be a variable that indicates it's 

S fhf u« ; ''I' ''r'''''' operattTt" ' 
affects the ite* (such as turning a relay on); ther- M^a 

e a variable .aintained by either the siatus'task [for tat 
that contains the currently displayed state of the itet. In 

the display s ate variable) if they dont agree. This alloK 
or a so.e«hat speedier updating loop, since only one or Uo 
ite*s usually change for each pass through the status update 



I 
2 

3 
4 
5 
& 
7 
8 
9 

18 

11 

12 

13 

14 

15 



\ Task Supoort - Systei Status Variables 

CREATE RaAYS 3 ALLOT RELAYS 3 ERASE \ Relay- 1-24 
CREATE OLDRELAYS 3 ALLOT OLTRELAYS 3 ERASE 
CREATE RLYOEFAULTS 3 ALLOT RLYOEFAyLTS 3 ERASE 



VARIfiSLt PBUSY 
VARIABLE- PRATE 
VARIABLE PVOL 
VARIABLE POIR 



VARIABLE OLTPBySY 
VARIABLE OLOPRATE 
VARIABLE aOPVOL 
VARIABLE OLOPDIR 



\ 1 = busy 
\ Puip floH rate 
\ Puip voluie 
V Puip direction 



VARIABLE OLOTIKE \ previous tiie of day 

VARAIBLE 0LD5TATUS \ previous run status 

VARIABLE CHAHSEKETHOD \ true »»hen a new .ethod is loaded 

CRt«TE KETHODBUF KKLEX ALLOT \ current «thod file nan 
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«ore systet status infonation variables. 



B \ Task Supoort - Systei Status Variables 



I 

2 CREATE RV-STAT-TBL 8 ALLOT \ Rotary valves 1-4 

3 P;-STAT-TBL 8 ERASE 

4 CREATE RV-OEFAULTS 4 ALLOT \ Rotary valve initial positions 
MRV-DEFALITS C! 4 RV-DEFAULTS I ♦ C» 

6 8 RV-OEFAULTS 2 + C! 6 RV-DEFAULTS 3 ♦ C! 

VARIABLE OLDflXTIflE \ 

VARIAaE OLOMIPWl \ 

VARIABLE OLOnXDUn \ 

VARIABLE CLDHXBU3Y \ 



8 VARIABLE MITIWE 

9 VARIABLE MXPKR 
IB VARIABLE MXDUTY 
11 VARIABLE MXBUSY 
12 

13 VARIABLE «P«S6 

14 VARIABLE FPKS6 
IS 



(fixing tlis 
Hixer power setting 
Hixer duty cycle 
1 = lixer is on 



VARIABLE GUlKPn3& 
VARIABLE OLOFPKSS 



Method tessage pointers 
Function eessage pointers 
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RUN.STATUS Contains bits which indicate the state oi the 
control task. 

The losdinQ bits ire used to rKcver froe errors during a 
load ooeration. Moraally, the load operation is coipleted 
and an acltnoMie9Bient is returned to the user task- But 
if an error occurs, the cofitrol tast loop is exited and re- 
entered by the error handler. These bits are used to ■ 
determine hoH to recover fro* the error and to send an 
appropriate error eesss^e. 



6 
7 
8 
9 
Id 

n 

12 
13 
14 
IS 



\ Task Supoort - Systei Run Status 

HEX 

VARIABLE RUHJTATUS 
\ Bits in RUHJTATUS: 

1 COHoTAKT RUNBIT 

2 CONSTANT PAUSEBIT 
4 CONSTAHT BUSYBIT 
8 CCJJSTAWT STEPBIT 

10 CQNSTA?{T FLQACBIT 
2B CONSTANT KLGACBIT 
DECIMAL 

RUNBIT PAUSEBIT BUSYBIT STEPBIT FLOADFIT + * ♦ 4 

C0N3TAHT IDLEBITS \ use this sask to test ior idle 



\ control task status 

\ true i^hen Tunni ng 

\ true Mheh in pause 

\ true Mhen ending run 

\ true Nhen in single step code 

\ true Nhen loading functions 

\ true Nhen loading a eethod 
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9 
16 
11 
12 
13 
14 
IS 
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B 
1 
2 
3 
4 
Z 
6 
7 
8 
9 
18 
11 
12 
13 
14 
IS 
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6 \ Status Task - Load Block 
I 

2 Ml 144 THRU \ Relay status update routines 

3 147 148 THRU \ Rotary valve status update routines 
^ iZZ THRU \ nixer status update routines 

5 153 1S5 THRU \ Puip status update routines 

6 1j6 1S6 THRU \ Prograiiable lessage update routines 
7 

6 127 129 THRU \ Rest of status task 
9 EXIT 
19 

n 

12 
13 
14 
15 
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B \ Status Task - status header strings 
1 

2 \ These routines return the address of string for status header 

3 : PSEJT V PAUSE ' ; 

4 : ROYJT V READY ' ; 

5 : RUN.ST f RUKKINS ' ; 

6 ; SS,ST V SIKSLE STEP* j 

7 : STEP3T V STEPPING • ; 
e : BSY ST V BUSY ' ; . 
9 : ERR ST V ERROR STATE' ; 

18 ; LDB.ST f LOfiDIKS - ; 

11 

12 

13 

14 

15 
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e 


\ Status Task - Status Header Updates 




SHOnCLOCK displays the tite of day on the status header. 


1 V 


: SHOSaOCK ( n — ) C 43 SCTA3 (sinsi ; 




SHOSSTATUS displays the run status in the header. 


2 : 


SH0KSTATU3 ( n — I IDLEBITS A«3 






3 


9 CASE IF RSY.5T 


ELSE 




4 


C RUHBIT LITERAL 3 CASE IF RUH.ST 


ELSE 




5 


C RUHBIT PAU3EBIT OR LITERAL 1 CASE IF F^SE^ST 


ELSE 




6 


t RUHBIT 5TEPBIT OR LITERAL 3 CASE IF STEP3T 


ELSE 




7 


C RU«BIT PAUSEBIT STEPBIT 






6 


OR OR LITERAL 3 CASE IF SS ST 


ELSE 




9 


t BUSYBIT LITERAL 3 CASE IF BSY ST 


ELSE 




IB 


C FLOADBIT LITERAL 3 CASE IF LBS 5T 


ELSE 




11 


DROP ERR.ST 




STTIHE updates the clock if current tite is different froa 


12 


T1£K THEN Jm THEN THEN THEN THEN 




Gid tite. 


13 


B 12 SCTA6 COUNT UND>TEP.N ; 




STRUN updates the run status if currefit status is different 


14 \ 


: STTIHE 3TIKE QLOTIHE 3 - IF 3TIRE OUP • 




froft Hhats displayed* 


15 \ 


OLDTIfE ! SKCNaOCK THEN ; 
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SHDifKFTHon fK. ii^^* / • 6 \ Status Task - Status Tas^ loop 

iHUKfUTHOD If the first char of the current aethatf file naae'is 1 

;lV.!f?l*!.!?^^!^^^^^^^ 2:STRUH RUM.5TATUS 3 flLDSTATUS J - IF Rl/H. STATUS J OOP 



•(hen a valid lethod is loaded. 
SThETHO uo^ates the curre.ntlv selected sethod na»e on 
the status header if the nate has chanced. 

STATU3HEA5LR updates inforsation at the top of the screens. 
Ti«e, nintiig, aethud naae. 



KJnJilKB iz the aain status tasfc loop. It runs every .1 sac. 



3 
4 

S 

6 1 

7 

B 

9 ; 
18 



• OLDSTATUS ! SHO«STATUS THEN 
SHGHKETHOD Z 62 SCTAB finh^nnSLrF'? IF KETHCDBUF 
aSE rnoiethod • I* THEn' KKLEN UN0>TER« ; 
STHETTO CHAK6EKETH0D 3 IF FALSE CHAHSEKETHOD ! SHDWhETKGD 
THEN : ' - 



STArjSHEAGER ( - ) 
( PAOSE STTIKE ) PAUSE STRUH PAUSE STWETHD ; 
n : DEVICESTATUS { - ) 

12 STRLYS STRVLVS STPU«P STHUER STFHSS : 
13 

14 : RUh'KINS ACTIVATE im HS ( Halt for initialiiation) 

15 BEBIN STATUSHEASK DEVICESTATUS A6AIS | 
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B 
1 
2 
3 

5 

7 
B 

IB 
11 
12 
13 
14 
IS 
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B 

i 
2 
3 
4 
5 
6 
7 
8 
9 
IB 
U 
12 
13 
14 
IS 



crr»c«-rij t 
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BCTftASfC is 4 table of bit lasics, indexed by a nuaber froe 
e to 7. 

?:IYBTTE8 iiijicale-: «h;ch bvte in the raUy t-bU ms are 
^ currently indexing for status display, 

FIYBVTE* takes a table address fros the stack (either old 
^ or nen status table) and returns the currently indexed 
status byte froi this table- 

BITr,ASK* returns a bitiask given a bit nuiber (8-7) on the 
stack. 



0 \ status display - relay status updating - basic tools ' 

1 HEX 

2 CREATE filTKASK 1 C, 2 C, 4 C, 8 C, 19 C, 20 C, 40 C, 66 C, 
Z DECIMAL 

4 

5 VARIAELE PXYBYTEI 

6 ASSEMBLER BE6IM 

7 K POP t( 0 ADD a tf HOV 

8 0 8 SUB N ) 0 KOV B 

9 0 PUSH NEXT 
IB CODE RLYBYTEJ 

I! RLVBYTEI 0 KOV OUP JHP 

12 CODE BITKASKJ 

13 BITKASK I 8 MOV J«P 
14 

15 FORTK 
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Mitv-nicp n«u;^e ^w . . ^ ^ Status display - relay Status updating - display array 

>RLT-DISP positions the cursor at the begining of the status 1 y m i *rrdr 

display region for the indicated relay nuiber on the stack. 2 : )RLY-DISP ( n - ) 



3 12 /HOD 21 t 36 ♦ SHAP 6 ♦ SWAP SCTAB 
4 

5 VARIABLE STAT-FLA6 

6 : STAT-GM? PAUSE STAT-FLAS J ; 

7 : STAT-OM 1 STAT-FLAS ! ; 
B : STAT-CFF 0 STAT-FLAS ! ; 
? 

10 

n 

12 
13 
14 
IS 
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OISP-SaAY displays the status of relay n as indicated by 
the on/off value on the stack (1 = ON), 

Sffl-l-RLY is the saie as DISP-RELAY, but n indicates a relay 
relative to the ciirrently indexed status table byte. 

SHQ-S-RLYS taites a bitiask frot the stack, and displays all 
relays fro« the currently indexed status table that are 
tridicated by this bitiask. 
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0 \ Status display - relay status updating - display Mords 

1 : OIS?-RaAY ( on/off n - ) 

2 OUP )RLY-DISP 24 SVIAP 

3 IF U THEM 

4 2t CB-KA.1E-T3L ♦ 9 COUKT >TERK ; 

r 

J 

6 : SHO-I-RLY ( on/olf n' - > 

7 RLYBYTEI a .8 t + OISP-ftELAY 

e 

9 : SHQ-B-RLTS ( bi - ) 

18 RELAYS RLYBHEa 

11 8 0 DO 

12 OVER I BITKASK? AKD TOUT 

13 IF OVER AMD I SHO-l-RLY 

14 THEW . 

15 LOGP 2DR0P ; 
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CHANEED-PIYS? displays are relays in the currently indexed 
status table byte that have been lodified sinse last 
displayed. 

STfiLYS displays all relays that have been lodified sinse 
they were last displayed. 



B \ Status display - relay status updating - top level 



1 

L 

3 

7 
8 

? I 

le 
11 

12 
13 
14 
IS 



CHftNE£I>-RLYS? ( - ) 
RELAYS RLYBYTE3 DUP CLDRaftYS PXYBYTE9 
XOE OUP * 

IF SK0-3-RLYS QLDREUYS RLYBYTEI J ♦ C! 

ELSE 2DR0P 
THEH ; 

STRLYS ( - ) 
STAT-QM? IF 
3 e 00 

I RLYBYTEt ! CKAHGED-RLYS? 
LOO? 
THEN ; 
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6 
7 
B 
9 
10 
II 
12 
13 
14 
IS 
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7 
8 
9 
19 
11 
12 
13 
M 
IS 
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POSDPOfiTI converts 4 position nuiber il,4,7.l0) to a port 
nufber (1,2,3,4}. 

>RV-DISP positions the cursor at the beoinina of the display 
region for the requested valve nutfaer on the stack. 

DISr-RV displays the status of the requeted rotary valve. The 
value given on the stack (n) is twice the value of the 
valve nuiber. 

U?0-fiV-3TAT updates the status variables for the requested 
rotary valve. The value given on the stack (nl is tHice 
the valui of the valve nutber. 



9 \ Status display - rotary valve updates - basics 

1 : P0St>PORTI ( n - ) 

2 3 /WD ♦ ; 

3 : >RV-DISP ( n - I 

4 3- 1 8 ♦ 29 SZm : 

5 : GET-RV-s;R < n pi - i ) 

6 DUP 8= IF 2IJR0P V Hot Present • £IIT THEH 

7 OUP 3 < • 

8 IF l--2t S«AP 4 1+ ELSE 3 - 2t SWAP 4 ♦ 4 I 4 

9 THEH ft'V-NAME-TBL f 3 ; 
19 : CrSP-fiV ( n - ) 

11 DUP If SWAP OVER >RV-DISP 

12 RV-STAT-TBL + CS POSi>PORT< 

13 SET-RV-STR CCliMT >TER« ; 

14 : UPD-RV-STAT ( n - ) 

15 DUP RV-STAT-TBL f C3 SXAP RV-STAT-TBL U ♦ C! ; 
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3TFMVS displays the current status of all rotary valves " 
Hhose status has changed sinse it was last displayed. 
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B V Status display - rotary valve updates - basics 
1 

2 : STRVLVS 

3 STAT-CK? 

4 IF RV-STAT-TBL 7 8 00 

5 DUP I ♦ CJ OVER I 1+ + W = KQT 

6 IF I QISP-RV I UPD-RV-STAT TKEH 

7 2. +LDOP DROP 
B THEN ; 

9 
16 
11 
12 
13 
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I 
2 

3 
4 
5 
6 
7 
8 
9 
18 
11 
12 
13 
14 
IS 
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DISP-«rSTATE displays the current on/off stjtus oi the sixe 
DrSF-KXTinE displairs the current duration setting of the 

OISP-nXPKR displays the current power setting of the aixer. 

DISP-KX3UTY displays the current duty cycle setting of the* 
tixer. 



e \ Status display - aijfer status updating - display routines 

1 : OISP-WXSTATE ( on/off - ) 13 12 SCTAB 

2 IF C HEX 3 F0B STAT-ATTK ! f OK • COUKT >TEf«1 

3 790 STAT-AHR ! i DECIMAL- 3 

4 ELSE r OFF- CCUKT >TEn?I THcK ' ; 
5 

6 : DISP-KXTIKE ( n - ) 

7 15 13 SCTAB 8 CI t I M> >TEE« ; 
B 

9 : DISP-«XPH3 ( n - I 16 13 SCTAB C HEX ] 

19 CASE IF f I/r ELSE BCSi CASE IF f 1/2- 

11 ELSE 8I0S CASE IF f 3/<* ELSE DlBl CASE IF V FUL' . 

12 THEN THEW THEN TKSi' CaCNT >TEFJ( i DECIMAL 3 • 

13 ' 

14 : DISP-HXDUTY { n - ) 

15 17 M SCTAB 0 (t # t ft} >TERfl ; 
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All of the fclloHing rards display their infonation only 
if this infcrtation has been edified since it Has 
last displayed. 

«X-STATE? for the cixer^s current on/off setting. 

KX-Tins? for the •ixer's current tisa setting, 

KX-FtfR? for the sixer's current poMer setting. 

KX-CUTY? for the sixer's current duty cycle setting. 



9 : 
18 
11 
12 
13 : 
U 
15 



\ Status display - lixer status updating - status checfc^ 
HX-STATE? «XB(JSY a OUP flLDNXBUSY ? = KOT 

IF DUP DISP-KXSTATE OLDrtXBUSY ! 

ELSE DROP TO ; 

nX-TIME? . mTIfiE J DUP OLDKXTIKE 3 = KOT 
IF DUP DISP-KXTIKE OLEKXTirE 1 
'aS£ DROP THEM ; 

KX-P«R? HXP«R 3 DUP OLOMXPUR 3 = HOT 
IF DUP OlSP-HXPtffi OLCKXPSR ! 
aSE DROP THEH ; 

MX-DUTY? ttXDUTY 3 DUP OLDMXOUTY ? = KOT 
IF DUP DISP-RXDUTY DLDr.XDUTY ! 
ELSE DROP THE« : 
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STKUER displays any «xer settings that .ay have chanoed \ ' ' ''''' ''''"^ '''''''' ' ''''' 

since they Bsre last displayed. ' 2 : STKIXER ( - } 



3 STAT-OK? 

4 IF HX-STATE? KX-TIKE? MX-Piffi? KX-DUTY' 

5 THEH : 



9 ^ 
18 ? 
11 
12 

13 

14 ^ ^ 
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OISP-FSTATE displays the current on/off status of the puip. 

DISP-PVOL displays the current voiuie setting of the puip. 

D[SP-PPJ1TE displ2ys the current pusping rate setting of the 
puip. 

DISP-POIR displays the current direction setting of the puip. 



8 \ Status display * puip status updating * display routines 

1 : OISP-PSTATE • ( OR/off - I 6 12 SCTAB 

2 IF C HEX 3.F05 STfiT-ATTR ! I' OH * COUNT >TERH 

3 700 STAT-AnR ! ( DECIMAL ] 

^ ELSE r OFF* Zmi ;TERR THEH • ; 
5 

6 : DISP-PVOL. ( n - ) 

7 8 13 SCTAB 0 (l I t I I) )TER»1 ; 
8 

? : DISP-PP.ATE ( n - ) 
10 ? 13 SCTAB 8 (i I t I 1} )TERK ; 
11 

12 : OISP-PDIR ( for/rev - ) 

13 10 13 SCTAB 

14 IF r FOE* COUMT >TERrt 

15 ELSE V Rrr COUNT >T£RW THEM ; 
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All of the foUoHing Mords display their inforiation only 
if this inforiation has been todified since it Has 
last displayed. 

PU«P-STATE? for the puEo's current on/off setting. 

PUn?-VQL? for the pusp's current vohae sstting. 

PUMP-RATE? for the puip's current puiping rate setting, \ 

Fim?-DIR? for the puip's current direction setting. 
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8 \ Status display - puip status updating - status checks 

1 : PUKP-STATE? P3USY 9 DUP 0LDPBUST.3 = HOT 

2 IF DUP DISP-PSTATE OLDPBUSTf ! 

3 ELSE DROP THEH ; 
4 

5 : PUHP-VCL? PVOL 3 DUP OLDFVOL ? = NOT 

6 • IF DUP DISP-PVOL OLDPVOL \ 

7 ELSE DROP THEM ; 
B 

9 : PUKP-RATE? PRATE 3 DUP OLDf-RATE » = KOT 
IB IF DUP DlSP-PRftTE OLDPRATE ! 

11 ELSE DROP THEH ; 
12 

13 : PUMP-DIR? PDIR 3 DU? OLDPDIR 3 - HOT 
U IF DUP DISP-PDIR CLDPDIR ! 
15 ELSE DROP THEM j 
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8 \ Status display - puip status updating - top level 
STPUKr displays any puap settings that lay have changed 1 

since they Here last displayed. 2 : STPUHP ( - ) 

3 STAT-OH? 

4 IF PUflP-STATE? PUttP-VOL? PUKP-RATE? PUttP-OIR"? 

5 THEH ; 

6 * 
7 

8 

9 
10 
11 
12 
13 
14 
15 



*r / / 
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DlSP-PJiSS QBts a string address and a Hag that indicates 
whether this string is a sethod iessaga string (U or a 
function iessage string <fl). It then places this string 
iri thr ac-prc^.riate screen pesition. ]( the string 
pointer is S, then then appropriate <e55aQe area on the 
screen is cUared. 



D \ Status display - prograiable lessages - display routine 



8 
9 
IS 
11 
12 
13 

15 



OISP-PHSS ( str-addr tthd/func • ) 

IF 1 9 SCTAB 60 

ELSE 4 4 SCTAB 28 
THEN SKAF ?I1UP 

IF C^KDTERrt 

ELSE SF>TEEH 
THSH ; 
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cTMoucr J 4, . 3 \ Status display - progratable aessaaes - too leyel 

STRPHSG updates the lethod prograwable eessage on the screen 1 

if it has been changed since last displayed. 2 : STMPHSS ( - ) 

3 ttPMSS 3 OUP QLDMFKSS 3 = KQT 



STFPH3G updates the function prograsiable isssage on the screen 4 
it it has been changed since last displayed. 5 

6 
7 
8 
9 

IB 
11 
12 
13 

.:. 14 

15 



IF OUP 1 DI5P-FKSS QLDKPKSS I 
ELSE DROP 
TK£H ; 

STFFKSS ( - ) 

PfiSS a CUP OLUFFKSB 3 = KOT 
IF DUP 0 DISP-PRSS OLSFPKSe i 
ELSE DROP 

TK£i< ; 
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STPKSG updates status screen proorasiable fiessages whenever 
they change. 



0 \ Status display - prograsable asssaoes - top level 



: STPnSB ( - ) 
STAT-QK? 

IF ST!1PHSB STFPKSS 
TKEM : 



8 
9 
10 
11 
12 
13 
14 



15 
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BROfi-PIECE defines self etiting constats far sending border 
characters to the screen. 

fill border pieces, except for the horizontal piece, are 
•jtrinied usinc ERDR-PIECE. The pieces are; 
TL for top left, TC for top center, etc... 



gAF:-STF: is a string of horirontal characters used for dra' 
d horizontal bar. 



B \ Device status - background - basic tools 

1 : BRDR-PIECE 

2 CREATE , ( c - ) 

3 DOES) 3 EMIT ; 

4 21B BROR-PIECE TL 194 PRI-R-PIECE TC J91 8RDR-fIEC£ TR 

5 17? BRDf.-PIECE VT 

6 192 BRDR-PIECE BL 193 BRDR-PIECE BC 217 fRDR-PIECE BP 
7 

B CREATE BAR-STR 28 ALLOT 
9 : HAKE-STRINS ( - } 
13 BAR-STR 2e fl DO 

11 19i OVER C! U 

12 LOOP DROP ; 

13 kaj;e-strinb forget KAKE-STRIHS 

M 
15 
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DRBAR draHs a horizontal bar of n characters at the current 
cursor position. 

ORTl and DRTR draH top left and top right sections of a box 
respictively. 

DRTGP and 0R3TX drsn a coipUte top or bottoi section for a 
box. 

DR2SD draws the two sides of a box on one line, 

0R3SO is the saae as DR2SD, but is used for bores that have 
a vertical center divider. 





\ Device status - background - 


draKing sections 


1 : 
2 


ORBAR 


( n - ) BAR-STR S«AP TYPE ; 


3 : 


DRTL 


( n - ) TL 1- DRBAR 


i 


4 : 

S 


DRTR 


( n - ) . I- ORBAR TR 




f> : 


DRTOF 


( n - ) TL 2- DRBAR 


TR 5 


7 ; 
8 


DRETfl 


( n - ) BL 2- DRBAR 


6R ; 


9 : 


DR2S0 


( y X n - ) 




18 


1- >R 


2DUP TAB VT 




U 


R> + TAB VT : 




12 : 


0R3SD 


( y X n - ) 




13 


I- >R 2DUP TAB VT 




14 


I * 


20UP TAB VT 




15 


R> ♦ TAB VT J 
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P'J/HlI-BCr draws a p!!<p or iixer box at the location 
specified on the stack. 

PUftP-BOI draws a puap box at the appropriate location, and 
places all the reouired labels and titles in and around 
it. 

MIXER-BOX draws a lixer box at the appropriate location, 
and places all the required labels and titles in and 
around it. 



e \ Device status - background - PUMP and MIXER boxes 



I 
2 
3 
4 
5 
& 

" 7 
8 
9 
18 
il 
12 
13 
14 
IS 



PU/MIX-BOX ( top left - ) 
2Di;p TAB 17 DRTGP 
OVER 1+ DUP 3 ♦ SKAP DO 

I 2 PICK 17 DR2SD 
LOOP 

SKAP 4 4 SWAP TAB 17 DRBTM 
PUKP-BOX 



4 3 TAB . 
& 2 TAB . 
e 2 TAB . 
KIXER-BOX 
11 3 TAB 
13 2 TAB 



15 2 TAB I DUTY:' 



PUMP' 5 1 PU/MII-BOX 

VOLUME: • 7 2 TAB FLOM RATE:' 

DIRECTIOH:' ; 

• MIXER' 12 I PU/MIX-BOX 
DURATION:' 14 2 TAB j'GKER:' 
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fiV-BOr draws a sinole rotary valve box at the location 
requested on the stack, and labels it Kith the given 
number (n) on the stacfc, 

RV-BOJES draws all four rotary valve bcxes and labels 
then apropriately. 



9 \ Device status - background - ftOTARr VALVE bcx^s 
1 

3 



5 
h 
7 
8 
9 

10 
11 
12 
13 

•14 
15 



RV-BOX ( top left n - ) 
>F: m? TAB 
6 DRTL 35 EHIT R> 46 ^ EKIT • 7 DRTR 
SKAP If m? SHAP 15 DR2S0 
1+ S«hP tab 15 QRBTK ; 

: RV-BOXES ( - ) 

4 20 TAB ROTARY VALVES' 
1? 2 4 8 00 

3 + 2BiJP SSAP I !+ RV-BOX 
LOGP 2CRCP : 
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CD-BOX draws a contact device box with all its labels and 
titles. 



6 
7 
8 
9 
IB 
11 
12 
13 
U 
15 



\ Device status - background - CONTACT DEVICES box 
CD-BOX ( - ) 

2 48 TAB CONTACT CLOSURES" 

3 35 2DUF TAB 

7 DRTL FUNCTIQK' 6 BFJAR TC 6 DRBAS FUKCTIQfC 7 ORTR 
S^AF 12 8 CO 

U 2DUP S«A? 22 DR35D . 
LOOP 

1+ SKAP TAB BL 2S Df:3AR BC 2S DRBAR BR : 
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All the words in this and the foUcwinQ screen display thier 
respective infortation rsoardless of wether the status o* 
any of thee has been ladified sinse it was last displayed. 

SHO-RVLVS displays the current status of all rotary valves, 

SHO-KIXER displays the current status of the lixer, 

SHO-FUKF- displays the current status of the pusp. 
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B \ Device status - background - updates at refresh tite 

2 : SHO-RVLVS ( - ) 

3 7 a DO I DISP-RV 2 +LOaP ; 

5 : SHO-KIXER ( - ) 

6 KXBUSY 3 DISP-«XSTATE KXTIHE a OISP-flXTlflE 

7 HIP«R 3 DISP-«XP«R KIDUn 9 DISF-«XDUTY . ; 
8 

9 : SHO-F««P ( . I 

IB PSUSY 3 DISP-PSTftTE PVOL 3 DISP-PVOL ' 

U PRATE 9 DISP-PRATE PDIR I DISP-PDIR : 
12 
13 



SHO-RLYS displays the current status of all relays, 
SHO-PftSGS displays both progra»fiabU lessages. 
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0 \ Device status - background - updates at refresh tiae 
I 

• 2 : 3RLY-STAT ( n'- on/off ) 
3 8 /KOD RELAYS ♦ C3 SKAP B!T«AS« AND ; 
4 

5 : SHO-RIYS I - I 

6 24 6 DO . 

7 I JRLY-STAT 1 OISP-RELAY 
a LOOP ; 

? 

16 : SHO-PMSSS 
U MPttSS 9 I DISP-P«S6 
12 FPKSS 9 0 DISP-PnS5 ; 
13 
■ 14 
15 
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STATUS-BKG paints the Nhole status* display, and updates its 
contents to the current value of all devices and lessages. 



B \ Device status * background - top level 
1 
2 
3 



6 
7 

• 8 
9 
IB 
tl 
12 
13 
14 
15 



STATU5-BKG { - ) 

\ Display all boxes and default text far background 
PUHP-BOX KUEF:-BOX 
RV-BOIES CD-BOX 

\ Refresh all of the actual divece and iessaoe status 
■ WlKDOttOFF 

SHO-RLYS SHO-RVLVS SHO-PUMP SKO-HIXER SH0-Ptt363 

Mimm ; 
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6 
7 
6 
7 
IB 
U 
12 
13 
14 



8 \ Control 
1 



Task - Load Bl&ck 



181 182 THRl^ \ 



3 192 193 THRU 

4 183 1B9-TK?;U 
Z 194 LOAD 

6 2S7 lOAO 

7 213 LOAD • 
B 225 LOAD 

9 234 LOAD 
ID 237 LOAD 

11 l?e LOAD 

12 EXIT 
13 

14 
15 



Basic tools 

iethod structure vords 
Co«and processing' 
Breal execution words 
Relay Control 
P'ja3 Control 
Haiti Iton Valves 
Rixer Operations 
Prograssable eessages 
Tast loop, initioliiaticn 
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HTKFTR II not 13, points to «ost recent valid tethod. 
HTKMPTR is used for displaying the naie of the Kthod. 

>RTHD-NAKE places the naes ci the sethod in KETHODBUF. 



B \ Control Task - basics for eethods 
1 
2 
3 
4 
5 
& 
7 
6 
7 
IB 



VARIABLE nTHPTR \ Points to first word of iethod 
VARIABLE HTHWPTR \ Points to nfa of sethod 

: >fJTHD-fiAKE 

METHGGBL'F K.1LLH BLAHIC 

«THHFTR 3 4 + COLIMT II ftIK 

KETHODBUF SKAP CKOVE ; 



12 
13 
14 
15 
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IDLE? returns true if a iethod is not runnino, 

BUSY? returns true if cycling froa running to idle, 

PAUSE? returns true if in pause state. 

RuN? returns true if running, pausing, or stepping. 

STEP? is true if in single step aode, 

RSP sends a response (a Kssage pointer and a token) to a 

cofiiind frofi the user task. 
ACKRSP responds with ok if coAsand was accepted. 
KAKRSP is an error response, string is used for error lessage. 
startrun will perfort necessary processing to start a run. 
endrun will do what is necessary to end a run. 
notready responds with not ready error. 
HTKIIOK? returns true if iethod exists and no load errors. 
filHDEP.?. error if the iethod is not ok. 



B \ Control Task - basics for status Checking 



1 : statcheck ( n 



IDLE? 

BUSY? 

PAUSE? 

RUH? 

STEP? 



( ~ t) 
( ~ t) 
( — t) 
( — t) 
( — t) 



t) RUJ 
IDLESITS 
BUSYBIT 
PAU3E3IT 
R0M3IT 
STEPBIT 



TATUS 3 AKD ; 
statcheck KGT 
statcheck ; 
statcheck ; 
statcheck ; 
statcheck : 



8 \ : RSP ( ptr n — ) fRQr.^CCKTRQL SEKD.ttSB 



ACKRSP 
: HAKRSP 
startrun 
endrun 
notready 
NTHDOK? 
HTKOERR 



) V 



( ptr 



) 



control ok' 
KAK RSP 



AO: RSP 



( perfor* end run operations* ; 
TRUE ABORT' Error: not ready!' 
KTHPTR 9 ; 

TRUE ABORT' Error: Ho Hethod!* 



163 



B \ Control Task - Start/Stop Run Control 
processes a start/stop coiiand fro* the user. * l : C.ST/STOP ( ptr — I DROP 

2 BUSY? IF { cant start or stop Mhen its busy) 

3 notready 

< ELSE ' . 

5 IDLE? IF ( not running) 

6 HTHOO!:? IF { start a new run) 

7 \ RUNBIT RUK.STATUS ! startrun 

8 ELSE { soiething wrong with the lethod) 
V KTHDERR 

la THEN 

11 ELSE ( end the run) 

12 BU3Y3IT m STATUS ! endrun 

13 TKEH 

14 THEN ; 
15 
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p r.^/pnMT , ^ ^' *^o"troi Task - Pause/Continue Run control 

L.ho/LOfil processes a pause/continue couand frot the user. i i C.PS/COMT (ptr — ) DROP 

2 BUSY? IF 

3 notready 

4 ELSE 

5 IDLE? MOT IF 

6 PAUSE? IF 

7 * KUM.STftTUS J C STEP3IT PftUSEBIT OR NEGATE I- 
3 LlTEPJiL AN& RUK STATUS ! 

9 ELSE 

IB PAUSEBIT RUK STATUS *! 

11 THEH 

12 . THEK 

13 THEK ; 
14 

15 
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. . , S \ Control* Task - Single Step Run Control 
processes a single step cowand froi the user. 1 : CJ3TEP (ptr — ) DROP 

2 BUSY? IF notready 

3 ELSE 

4 IDLE? IF . 

5 WTHDOIC? IF \ start a run in sinole step sode 

6 RUKBIT STEFBIT * RUN STATUS ! startrun 

7 ELSE 

8 KTHDERP. THEN 

9 ELSE 

18 RUNJTATUS 9 

n PAUSE? IF \ turn off pause to do one step. 

12 C PAU3EBIT KEBATE 1- J LITERAL AHD 

13 THEK STEPBIT OR RUN STATUS I 

14 THEN 
tS TKEH : 



1 o 
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LAST-€ND contains a pointer to- the address of •endaethod' 
in tfte last occurance oi END. if £HD is being coipiled 
far the first tiie in a load, this pointer e-jst be 

0H:HD initializes the control task method para^rters. It 
eipties the dictionary space of the task, clears any- 
outstanding status lessagesj resets LAST-OJD to 8. 
connects the tasks dictionary to the top of the lain 
dictionary, deares the old aethod nase. 



0 \ Hethod £j;ecution - initial izition 
1 

2 VARIfiBU LAST-ENO \ Points to 'endiethod' in Ust END 
3 

4 : CKTHO - ' 

5 EftPTY 0 KTHPTR ! \ ^^t rid of old t^hod 
0 «F«S3 1. 8 FPnSG ! \ dear £essag« 
8LfiST-EKD-! \ lintialize EKE-i - 
OFERATQR CQhTEIT HIS CONTEXT 20 flOVE \ chain vocabulary 
G ttETHODBUF ! TRUE CHAHHEnETHOD ! ; \ clear sethod naa* 



n 

12 
13 
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KETHOD Definino word. Coapiles a'neH aethod and puts it's 
starting address into KTKPTR. 

€nd*Ethud Run tite code for £H9. Terminates isthod execution. 



EKD Coipilin? word inserts •eridEethed' as end of aethod 

definition and stops coapilin§ the method definitisn. Since , 
«thnds -ust be able to nsst, -sndaethod' wst executs^oaly 8 : EHD 

^lerVui ^^^^ vari^fele 9 LAST-Ef^D ; 'DU? 

LAST-EKD IS used to replace earlier cospiled addresses of 
•endsethod- with EXIT, effectively convertinq all but the 
last occurance of EKD into noraai forth seei colons. 



C \ Method Execution - defining aethods . 
I 

2 : ffETHOD 

3 HERE fiTKKPTR ! 

4 : UST ; J CFA 2+ KTKFTR ! ; 
5 

6 CODE end£5thod BUSYBIT f RUN STATUS KOV ' EXIT JKP 
7 



18 
11 
12 
13 
14 



IF C'l EXIT 2- OV-ER ! THEK 
HERE LAST-EKD I 

COMPILE endaethod SKUDGE R> 2= STATE ! ; IKKEDI5TE 



SIS 
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0 V Rethod Execution - breaking execution 

2 : break STEP? IF PAUSE0IT RUN STATUS ♦! THE!,' 

3 BESIK FRGCES3.CKD3 BUSY? IF CTl LOOP THEH 

ft. fpr-in.f«- . H.x;.-*- . ^ ^^^^^'^ ^^^^ R> DSO? EXIT 

tf, ter.inetes a definition, causing a •breefc* to proc^s^ 5 i 

coaacnds frci the user task and to allon other tasks to run, J : B; COMPILE break SfiUDSE R> 8^ STATE ! ; IMKEDIATE 



break Euntisr code for fi; Used in place of to check for 
pause, step, or continue coatands froa the user task. Exits 
the coAfiand loop if stop. 



9 

10 
11 
12 
13 
14 
15 
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The upper port of the PIA generates the address and control ' 
(refid/write), while the loMer port is for data in/out. 
These constants deUne the I/O addresses for the 6821 PIA chip 
OP th» 02t?-22 AC 2 adapter card. 

flUTOIF: sets the PIA to all hits out lor the given channel. 

IKDIR £5t= the data direction to input. 



RLYSOtJT outputs the data value to the PAftyz port (8-2), 
iPAttyx is a parallel board connected to the PIA) 
RLYSIi; gets the current state of all the relays. 



\ Relay Control 
HEX 

\ direction/data control 
318 CQHSTANT COA 311 CQK3TAHT CTLA 
312 CGH5TAHT CDB 313 COKST^UT CTLB 
: OUTDIR ( a — ) >R S I I- OUTPUT 

CirrPUT 34 R> OUTPUT ; 
: INCIR {\~ ) )R g I i- OUTPI/T 

OUTPUT 34 R> OUTPUT ; 
; RLrSOUT Ida — ) CTLB OUTDIR DUP CDA OUTPUT SKAP CDB OUiTU^ 

DUP 48 + CDA OUTPUT CDA OUTPUT ; 
: RLYSlfl ( a — ) CTLB IMDIR DUP CDA OUTPUT B6 + CDA OliTFU^ 

CDB IK?UT 3 CDA OUTPUT ; 
DECIMAL 288 21 S THRU 



\ upper parallel port 
\ loHsr • • 
fl I OUTPUT ePF M- 

8 I OUTPUT e I I- 
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PiY contains the relay \ after RELAY is executed 

PRT contains the PAMUX port address after RELAY (8-2). 

K3K contains the bit lask to isolate the relay bit. 

FlYUPDATE Given the ncH state (either on or off) for a relay, 
reed in the current relay states for this group of 8, and 
set the neM stats for this relay. The current status for 
for these relavs is saved in RELAYS for status updating. 
Kote that RELAY lust be executed before OM or OFF. 

RELAY converts a relay nuiber 11 - 24) into a port I and il's 
bit position in the port. 

0<N and OFF turn just the relay selected by RELAY on or off, 

IKIT.RLYS sets all the relays to their user selected state, 
(defined by the bits in RLYDEFAULTSI 



8 \ Relay Control 

1 VARIABLE PXY \ These 3 variables are set by RELAY 

2 VARIABLE PRT VARIABLE fiSK VARIABLE SK3 
3 

4 : RLYUPDATE ( n — ) 

5 HSK 3 AND • \ isolate relay state bit 

6 PRT 3 msm \ get current state 

7 KSK'a -1 m m ( reiove old state ) OR \ insert new state 
B PRT 5 2DUP RELAYS + C! ( save relav status) RLYSOUT \ 

9 ! RELAY ( t — ) I- \ Converts 1-Z4 to 8-23 

IB DUP B 28 HITHIN HOT ABORT" Relay # is out of range* 

11 DUP RLY i 8 /HOD PRT ! BITHASK + C3 MSK ! ; 

12 : (OM) PlYDEFAULTS PRT 3 ♦ C3 INVERT RLYUPDATE ; 

13 : (OFF) RLYDEFAULTS PRT 3 ♦ C3 RLYUPDATE ; 

14 : I«IT.RLYS 

15 CTLA OUTDIR CTLB OUTDIR 21 1 DO I RELAY (OFF! LOOP ; 
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(UyiED is used to give a relay a naae: ' 4 RELAY KA«ED «£THANOL* 

Later, use as: KETHANOL RELAY OH 
ISJFF is used to define the state of the relay when •off. 

Allows a relay to be norially on rather than off. 

Use: 4 RELAY 1 IS.QFF takes 'on' the default for relay 4. 

Coibine the two definitions: 3 RaAT HAflED WATER 0 IS OFF 
DELAY waits a given nwber of lilliseconds before returning. 

Use it in user iethods rather than FORTH's HS to allcm 

recognising the stop cotiand. Quits back to aain loop if stop 

HS is redefined to be used as a units descriptor in a tethdd. 
Use: 5 HS DELAY or IB SEC DELAY. 
«IN waits for several linutes. 



8 \ Relay Control - Method words 



: OH C - ) (OH) B; 
: OFF ( - ) (OFF) B; 

: SENSOR ( I - ) I- DUP 28 24 iflTHIH 

HOT ABORT* Sensor I is out of range* SKS i ; 

: (6ET-SEKSQR) ( - on/off ) SHS*9 8 /KQO 
RLYSIH SHAP BITKASK9 AHD HOT HOT ; 

: SWAIT ( on/off ) BESIM PROuESS.CKDS BUSY? 

IF CTL.LOOP THEH DOP (6ET-SENS0R) = UHTIL DROP B; 

: 6ET-SEN30R ( I - ) SEKSOR (6ET-SEKSQR) j 

! ON-KAIT ( - ) I SHAIT j 

: OFF-WIT ( - ) 8 SMAIT : 
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8 \ Relay ContrDl - Hetfiod Nords 
I 

2 : H(\m ( - 1 CREATE fiLY 9 C, 00E£> ( — I) C3 ; 

3 : IS.OFF ( t —I IF -1 ELSE B THEN KSK 3 AND 

4 RLrOEFAUlTS FRT 5 * OUP W MS^: J IKVEPT AN'D SWF" OR ' 

5 : DELAY ( is — ) 

6 COUNTER + BE5IH PROCESS CKDS BUSY? IF CTL LOOP THEN 

7 DUP COUNTER ( UNTIL CROP ; 
B 

9 

le . 

11 
12 
13 
14 
15 



a 
1 

2 
3 
4 
5 
6 
7 
8 
9 

la 
u 

12 
13 
14 
IS 
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a 

1 

2 
3 
4 

5 : 
6- 

8 V 

9 
IB 
11 
12 
13 
14 
IS 
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PI/0 is the data input/output port for the puap controller. 

PSrS Status port for I/O. 

RCVRDY bit in PSTS is a fl Hhen data is available. 

I.ITFC'Y is a I nhen it is ok to trwsftit to the controller. 

F'REA&V is a 1 nher. the it is ok to send a puip coisand, 

P.STATliS* returns the I/O status Hags, 

PJATA5 returns the data byte froB the controller. 

PJ'ATAI writes a couand byte to the controller, 

P.CTS? returns true if it's ok to transait a coiiand, 

P.RCVRDV? returns true if data Naiting to be read, 

P.REAOY? returns true if the controller is ready. 

P.GETBYTE waits for a data byte and returns it. 

P.IKFLUSH reads any reaaining data bytes before returning. 



9 \ Puip Control - CoMunication Words 

\ m 

2 3EE COHSTAMT PI/0 

3 3£F CONSTANT PSTS 



4 

r 

«/ 

6 
7 
B 
9 

10 
11 

12 : 

13 : 
U i 
15 



1 COKSTAMT RCVROr 

2 CONSTANT XKTRDY 
4 CONSTANT PREADY 



P.STATUSa 
P.DATA9 
P.OATA! 
P.CTS? 
P.RCVRDY? 
P.READY? 
P.GETBYTE 
P.INFLUSH 
REPEAT 



( — n) 
( — n) 
< n — ) 
( — t) 
( — t) 
( — t) 
n) 



( 

( _ , 



PSTS INPUT J • - 

PI/0 INPUT ; . 
PI/Q OUTPUT ! 
P.STATUSa XHTROY AND ; 
P.STATUS3 RCVRDY AND NOT j 
P.STATU33 PREADY AMD ; 
BEGIN PAUSE P.RCVRDY? UNTIL ? DATA? ; 
BEGIN PAUSE P.RCVRDY? HHILE P DATA9 DROP 
OECIKAL 214 218 THRU 



o o ^ 
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PMPBUF is used to build puap co.aand strings in. First byte is \ ' ' Transaissioo ^ 

•lar miuii!,. t»! pipw i -^sx i mm c: , 
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TESTING ilGRD 



(I Starts foraatting a double nuaber at the end of PKPBUF. 
I> Ends fcraatting, string is in PKPBUF and addr, count on stack 
/STRNS converts a double nuaber to a HEX foraat text string. 

♦C«OSTR builds a puap CDsaand string in PHPBUF giver, the address 
PCm? initializes coiaand buffer and copies string to it. 
PPAR« gets double nuaber out of address and adds string'to buffr 
PSEKO ends a coaaand string Kith a and sends it to the puap. 



\ Piiap 
: p.cid^ 
: XPUKP 



- Coaaand Foraatting 
S ~ s nJ 1 KORD , COUNT ; . 
p.cad )PUKP .,,PttPBUF COUKT TYPE ; 



5 : l> { — 

6 : >STRK6 ( 

7 ' DECIHAI 

8 HEX '-^-^ ' 

9 ! 4CKDSTR ( 
18 : PCHD ( a 

11 : PPARR ( a 

12 : PSEHD i - 

13 DECIMAL 
14 

15 



KBUF PTR I 
a n) 
d — 



2DR0P PTR a KBUF OVER - ; - . - 
a n) SWAP OVER OABS HEX (» IS SIGH I) 



an — ) 8 DO DOP C? +BUF! 1+ LOO? DPJIP 

— ). flBUF COUNT >CnDSTR ; 
~ ) 23 >STRN6 +CKDSfR ; . 

- ) 3B ♦BUFI PKPBUF COUNT >PUMP ; 
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RATE Puap fJoK rate in counts per second 

V'OL Aiount to puap in counts 

8AIH 

ACCEL ficceleration rate of puep sotor in counts/sec/sec 

ZERO 

fULE 

DIRECTION contains the pucp direction fla^. 



8 \ Pmp - Variatiles 
I 

2 2VARIABLE ACCEL mm. ACCEL 2! 

3 2VARIABLE 6AIK 8. GAIK 2! 

4 ^VARIABLE ROLE B. POLE , 2! 

5 2VARIABLE ZERO 232. ZERO 2! 

6 ZVA-RIAtLE RATE 20M. RATE 2! 



7 2VARIABLE VOL 1636. VOL 2! 

Kf .rA HI «f i.k /I ^ . . ■ ^ ^ variable FDIR is defined in task support; 1 = forMard 

KL and ri/Km set the flow and vcluae variables after converting 9 

^' ' ID : tl ( n — ) m PVQL ! 0 20383 I «!/ V^L 2! ; 

11 : fil el ; 

12 : hi f tin ( n — ) OUP PRATE ! B 20SSa 60 nif RATE 2'' : 

13 : KL/»1N il/fiin ; 
.14 : FORWARD ( n — ) J POIR ! ; 
15 : REVERSE ( n ~ ) 3 PDIR ! ; 



frois the given units to putp counts, 
fCRKARD'and REVERSE set the puRp direction paraaeter. 
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ScKC'PARK vets the address and length of cofiiand string, and 
address of a double variable and generates a coipiete puap 
cccaand. Cowand looks like: -SPlOSaS;'. Refer to puip iianual. 

These cogsands all set puep controller variables. 



SETAa sends the necessary variables to, the puap. 



8 
1 
2 
3 
4 
5 
6 
7 

8 ! 
9 

le ; 
11 ; 
12 

13 1 

14 ! 
IS 



\ Puip - 

SENCPARff 

SETFLGK 

SETV'GL 

SETACCa 

SnSAIH 

SETZERO 

5ETFQLE 



Send Pucp Paraieters 

t ap ac n — ) PCrtO PPARrt f-SEHO 



RATE 

VOL 

ACCEL 

GnlH 

2ERQ 
POLE 



r SP' 
r PR" 

f AC 

r GK' 
r ZR' 
r PL- 



SEIliJFfiRM 
SENDPARK 
5EKDPARH 
5ENBPARN 
SSHDPARrt 
SEKDPARM 



SETALL SETFLOy SETVOL SETAClEL SETEAIH SEHERO SETFOLE ; 

TELLPKP ( ac — ) PCKD PSEKO ; 

P.ERROR? V TI* TELLPK? PKPBUF HEI HU«SER OECIKAL 1 ANS 

ABORT* Pusp exessive position error" \ 
PASQRT V A3* TaLPKP V WO' TELLPKP ; 
P.i?AIT ( - J BEBIM PROCESS CMS BUSY? IF PA30RT TKEK 
P.REAOY? UHTIL P ERROR? : 
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TELLFnF Sends a 2 character puep coisand. 
PABSRT is an e-sercency stop, turns the lotor off iaeediatly, 
F.HAIT Halts for operation coiplete, aborts if stop cowand, 
P3TART starts a puep operation. Controls pusp status flag. 
PRESET causes controller to use it's default paraieters. 
PREVcRSE puftps in reverse directic*n, : . * 
PFORKkRS puzps in fornard direction. ^' 
POECinAL Controller interprets nuabers in deciiai foraat. 
PKEl Controller interprets nuibers in Hex loriat (default). 
PSERVO Puts controller in servo aode. 
PDIRECTlOn sets the puip direction based on contents of 
OIRECTICK. 

m? sends an entire set of coiiands to start up the putp 

using the current puip paraeeters, 
ISITJUHP does the pus? initialiiation. 



C \ Puap - Puip Cceiands 



1 

3 
4 

J 

7 
8 
9 

IB : 
11 
12 ; 
13 
14 : 



PSTART - JRUE PBU3Y ! f BS* TELLPKP P IfAIT FALSE PBUSY ! ; 
P.OE h t' QE" PCKD >3TRK6 tCHOSTR PSEND : 



FF£S£T t' RSV 
PREVERSE . r OR* 
PFORm f DF" 
PDECIMAL V DC 



PHEX 
PSERVO 



V SV 



TELLPHP- 
TELLPKP 
TELLPKP 
TELLPKP 
TaLPKP 
TELLPKP 



5- ■■ 



FDIRECTION POIR 3 IF PFORIfARD ELSE PREVERSE THE« ; 

PUKP ( - ) PSERVO PKEI SETALL FDIRECTION P3TART B; 

IHIT.FUKP { - ) PABORT PRESET P QE ; 



This code is used to lanipuUte the parity of characters that* 
are send to antf received froii the Hatilton controller, the 
co««unication protocol for the device requires that the 
•dressipq character be send as an odd parity, »»hiie all other 
characters wst bs sent as even parity characters. The 
alternate way of laiiipulating the parity by proqraeainq the 
UART is not practical for reasons of speed and synchro- 
ni:ation. 



0 \ Kaiilton valves: basics and load block 
I 

2 VARIfiBLE ROPTR 

3 • 

4 CODE ^EVEN-PAR ( c - even-parity-c 1 HEX 

5 0 PQP d e AND S 
7B ( JPO, ODD-PAR?! 

IF Se IB S IQR 
THEN 8 PUSH 
NEIT FORTH 

>ODD-PAR ( c - odd-par ity-c ) 
>EVEN-FAR aa XQR : DECIMAL 



7 

8 

9 
16 
11 
12 
13 

14 226 232 THRU 
15 



\ Rest of Hamilton valve words 
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RBUFF is a nrap around receiving buffer, »(hose length lay be 
•odified through changing RBUFF-SIZE. This buffer is filled 
by the COLLECT loop, running under task REMOTE. 

RDF-TR, «R?TR, and RCCUNT are used to aaintain RBUFF, The 
first two are a read poitEr anu a write pointer into the 
buffer, and the last one is a count of characters received. 

SBUFF is a siail buffer for staring the characters that « send 
to the controller. 



1 
2 
3 
4 
5 
6 
7 
B 
9 
IB 
11 
12 
13 
14 
IS 
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RBuFF* is an addition Hord that returns a 'wrapped around' 
result, corresponding to the size of RBUFF. 

RBUFF3 gets the nth character of the wst recent unread portion 
of the receive buffer. 

P3UFF-aEAR clears the first n characters of the tost recent 
unread portion of the receive buffer. 

ECHO? returns true if exactly n characters have been received 
at the serial port. 



\ Haiilton valves: receive buffer utility Hords 

RBUFF+ ( n • - Mrappedtn+iJ > 
+ RBUFF-SIZE MOD ' ; 



8 
1 

2 
3 
4 

5 \ : RB'JFF? ( n - c ) 

6 \ .RDPTR 3 RKJFF+ RBUFF ♦ C3 

7 :.: " " 

8 : RBUFF-CLEAR ' I - ) 
? WRPTR a RDPTR i 

18 8 RCOUNT < ; 

n 

12 : ECHO? ( n - t ) 

13 RCOUKT 3 ^ ; 
14 

15 



>SEH1AL sends a single character to the controller* Hote 
that this send is don& directly to the active serial 
port that is beinq used by task REKOTE for character 
collpction. This is dene so that REl-QTE can continue 
rgspoadino to receive interrupts without any interference. 

CGatlnnD! storss the chacaters for the coaiand in SEUFF, 

K^iftLTQfi sends a coecand to the controller. 



1 
2 
5 
4 

*r 

6 
7 
8 
9 

le 

11 
12 
13 
14 
15 



\ Hacilton valves: coMand output words 



Cmmi ( cl c2 ... cn n - 0 ) 
SSaFF + f- SEUFF SWAP BQ 
! C! 

-1 +LCOP F:> ; 



OUP >R 



KAHILTQH 'i cl c2 

CD«KAKD! SBCTE ! 
. CALLK 6£T F:BUFF-CLEAfi 

5B K5 CALLER RELEASE 



cn ft - ) 
SBUF SBPTR ! 
5EKD>SER 
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6 
7 
B 
9 
IB 
11. 
12 
13 
14 
IS 
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ccntains the current valve nuaber 



B \ Haailton valves: valve variables and utility words 

2 VARIABLE .RVH , ' ' : . \: ; 

F:V-STAT-TABLE contains pairs of status variables ( old ancl ^nW ) 3 . , ' J\ ?* : 



the four valves 

RV-STAT returns the adress of the nex status variable for the 
currently selected valve ( P.V-I 1 

F:V-DIRECTIGK takes a position nueber and returns returns a 
direction character ( + or * ) for the Kaftiltcn cccfiaad 
string, the valve Hill rotate either one position counter 
clocicHise or one or Uo rositions clocfcHise. The first 
rotation of the valve is aUays clocktfise. 



' 4 : RV-STAT ( - stat-byte-addr ), > - ■ 

S RV-t 9 1- 21 RV-STAT-TBL + j 

7 HEI : RV-DIPICTIQK ( pos - direction-character » 

8 . RV-STAT Ca - 

' 9 .1 DIjT -3" S«AF 9 = OR 

IB . IF ;:2D , 

11 aSE 2B 

12 THEH DECIKAL 
13 

14 
15 
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These are the top level coi/iands for the haiilton rotary valve- 
controller. RVAVLE selects a current valve as in the phrase 
' 3 RVALVE. POSITIOK selects a valve position corresponding 
to the position nuibers that asoear on the top of the valve 
asseibly, and sends the valve to that position. PORT allows 
the user to use convention] nuBbers for valve position^ 
ni€ely -i- for up, -2- for right, -3- for down, and -4-' for 
left. The folloifing are exaiples of usage: 

I RVnLVE 3 FCf\T = 1 RVALVE 7 POSITIOK 
: RVALVE 4 PORT = 2 RVhLVE 18 POSITICH 



6 

7 

8 

9 
IB 
U 
12 
13 
14 \ 



\ Haiilton valves: valve driving Ncrds 

: RVfiLVE ( valve-l - ) 
ftV-f ! ; 

; POSITION ( Ha«ilton-l-pos - ) >fl 

C HEX ] 38 >OSD-PAR RV-» J 30 ♦ >EVEN-PAR 
i fiV-OIRECTlQK )EV£N-PAR I 33 f )r;E«-PAR 
D >EVEN-PAR 5 HArtlLTOH 
R) RV-STAT C! 
C OECIKAL ] 2238 KS 
8 ECHO? 11 ECHO? OR HOT 
ABORT' Hatilton Error' B; 

PORT ( nc^rftal-l-pos - ) 
I- 3 t If POSITION ; 
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1HIT-HA«-C0KK is called on powerup to initialize the haailtdn 
controller. 

IHIT-HAniLTOJi initializes coeaanication with the controller 
and puts the valves into their default positions. 



8 \ Haiilton valves: initialization 

1 : IKIT-HA«-COK« 

2 C HEU 30 >ODD-PAR 30 >£YEH-PAR D >EVEH-^AR 
3 HAMILTON 

C DECIMAL 1 453 ns 3 ECHO? 9 ECHO? OR NOT 

ABORT" Haiilton power error* 
[ HEI J 30 )ODD-PAR 47 >E\'Efi-PAR 0 >£VEK-?Aft 
3 HAHILTOM 

C BECinAL ] 256 HS & ECHO? NOT 

ABORT* Haiilton init error' ; DECIRAL 
INIT.HAMILTOH { - ) 
503 HS IKIT-HAM-COHN 
5 I OQ 

I RVALVE RV-DEFAtILT5 I 1- + C3 ?DUP 
IF PORT 2003 KS THEN 
LOOP : 
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MX-nSB and «X-LSB contain the nuibers for the relays that 
are used to control the lixin^ power. 

rt'-'nlt c'jntainf the nudber of the relay that turns the 
iixer en cr oH. 

I/< is used to set KX-«SB to 8 and KX-LSB to 8. 
1/2 is used tc set «X-M3B to B and nX-LSB to 1. 
Z/A is used to set KX-HSB to I and HX-LSB to 8. 
RJLL is used to set fiX-KS9 to 1 and RX-LSE to 1. 



8 \ Rixer operations - constants, load block 
1 



28 CCKSTAKT KX-KLV 

CQMSTAHT 1/4 

tOHSTAKT 1/2 

CONSTANT 3/4 

COKSTftHT FULL DECIMAL 



^ ^ O 



2 


IS 1 


3 


19 1 




28 1 












8888 


7 


8881 


8 


8)38 


9 


8181 


18 




11 235 


236 THRU 


12 




13 




14 




15 
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SET-FKP.-BIT turns one of the power control relays on or 
off as needed. 

MIX-CYCLE turns the sixer on and off for one cocplete duty 
cycle. If the duty oercentage is 183, then the eixer 
is left on. 



8 \ fiixer operations - basics 



J 
6 

7 

6 

11 
11 
12 
13 
14 
15 



SET-PWR-BIT ( on/off rlyl - ) 
SWAP 255 AND 

IF RELAY (OK) ELSE REUY (OFFJ THEH ; 

MIX-CYCLE ( n - ) 
KXDOTY J 18 I 
■ KZ-rtLY FaAY (OK) DUP DELAY 
SSAP - ?DUP 
IF HX-K.Y RELAY (OFF) DELAY THEK ; 
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XDUTY deteriines the duty cycle percentage for the fixing 
operation. 

F-OKER detereines the poHer setting of the siier. 

SECQKDS and SECOKD detersine the aixer's duration of 
operatlcn. 

KIX activates the tiier using the current paraieters found 
in the «xer variables MXDUTY, KXP«R, and HXTIME. 



1 
2 
3 
4 

r 
J 

6 
7 
3 
9 

16 
II 
12 
13 
14 
15 



\ Kiser operations 
IDUTY { n - ) 
«XCUTY ! 5 



top level operations 



POWER 
KXPKR 



< n - ) 



5ECCKDS ( 0 - ) 
«XTIKE ! : 



SECOND SECONDS ; 



KIX ( - ) 
I HXBOSY ! 

KXPKR 9 DUP X nX-«SB SH-PKR-BIT KX-LSB SET-FSR-BIT 
KXTIKE 3 e DO HH-CYCLE LOOP KX-RLY SaAY (GFFl 
KX-flSB RaAY (OFF) ItX-LSB RELAY (OFFJ 
3 nXBUSY ! B: 
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Rsad the year and set the FORTH svste* yezr.. 
Read the tite and set FORTH' s dock. 

i. 

Ths KOHTHS array is used to convert the current day and aonth 
into FORTH's internal date fortat. Refer to screens 30 and 
31 in the Level 3 Hstino, 

StTCATE oets the current day and sonth froc the battery clocl: 
on the ftST card and sets FORTH's date. 

Initialize FORTH's day, date, and tiie froa the AST 

card cloclc. 
Sacple prep 



12 

e \ Clocl: - Set FORTH'S tiie and date 

I 

2 

3 I SETYEAR YR3 + A.O. ; * 

4 : SETTl.^E HR9 IBS t m * B P5T ; 

r 
J 

6 CREATE MONTHS 

7 B . a , 31 . S9 , 90 , 123 , 151 , 181 , 212 , 243 , 273 , 

8 304 , 334 , 367 , 
9 

13 : SETDATE 0Y3 KG3 2t KOHTHS f J SB OVER < LEAP 9 1+ • 
11 JAKO ? * ^ HON ; * 
12 

13 SETYEAR SETTIHE SETDATE 

14 F0R9ET CLKJ 
15 
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These definitions are for the AST SixPac Plus card with the 


0 


\ AST Card Clock Calender words - For RICOH RP5C15 chip 


Ricoh RP5C15 clock chip. 


I 


\ ( for neMer AST Six Pack Plus cards) 


aw reads a value froa one of the AST card clocic registers. 


2 


HEX 






3 


: CLK3 ( a — n ) 


2C3 CUTPUT 2CI IKPUT SF AND ; 




4 


DECIMAL 




Resd the Itzr 


c 
u 


: 2SSTS ( a ~ r. ) 


uur iLr.f io « jnnr l~ ULr.« v } 


Honth 


6 


: YR9 ( ~ yr : 


12 2DGTS ; 


Cay 


7 


: H03 ( ~ to ) 


18 2Ii6T5 ; 


Hour 


6 


: DYJ ( — dy ) 


8 2S6T5 ; 


ninute 


9 


: HRJ ( — hr ) 


5 21)BTS ; 


Second froa the Battery dock. 


10 


: KN3 ( — in ) 


3 2D6T5 ; 




11 


: sea ( ~ sc ) 


I 2DGTS ; 




12 


EXIT 






13 








14 








15 







14 

8 \ AST Card Clc-ck Calender Hords - For Hational K«58167A chi 

1 \ (for older AST Six Pack Plus cards) 

2 HEX 

3 : CLK3 ( a — n J 2CB + IK7UT ; 

4 DECtKAL 

5 : CLVAL ( a — nl CU3 OUP li / IB t SWAP 15 AHO ♦ ; 
i : YR» { ~ yr ) IB CLW 63 f ; 

7 I m ( ™ ao ) 7 CLVAL ; 

9 : 0Y3 ( ~ dy ) 6 aVAL ; 
9 : KRJ ( — hr ) 4 CLVAL ; 
18 : nM3 ( ~ in ) 3 aVAL ; 

11 : sea ( — sc ) 2 CLVAL ; 

12 EXIT 
13 

14 
IS 



34B 



27 



0 275 826 



'SUIT is a user varuble in each task that contains the address 

to exectute Nhen an error occurs. 
The error handler for each thii. should process the error if 
possible: savinQ state intonation hr debugging (like SCR, 
>IN, etcJ; and re-enter the eain task loop to alloK recovery. 
This Hill prevent systes lockups on errors. 
Initializru to GuIT for noH (norial FGRTH r/stei error response} 
cFRORS is executed tthen A80RT is called. It $ets the error 
routine eddress for this task and starts interpreting it. 
Rodify the ABORT routine in FGRTH to vector to ERRORS instead of 
QyiT. 

SYSTEK HQTE: If the FORTH systei is ever recospiled, the ABORT 
rciitine itself should be codified to isplezect the abovE 
behaviour. It is not Qocd practice to poke in code changes 
after the system is up and running. 



8 \ Systei Error Handling 
1 
2 
3 



QUIT 'QUIT ! . 
: QUITS 'QUIT 9 >R J 
' QUITS ' ABORT 7 + ! 



' (aborf) "ABORT ! 

: ABORTS 'ABORT aEJECUTE ; 

' ABORTS 2- ' aborf 2* ! 

CODE RESET U R «0V \ clear the return stack 
Su U) S nOV \ clear paraseter stack 
S S SUB 0 PUSH \ put a safety 8 on stack 
HLXT 

\ copy of definition in screen 98 level 4 listing. 
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i 

2 
3 
4 

c 

6 
7 

e 

9 

11 

12 
13 
14 
15 
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/ 
B 
9 
18 
U 
12 
13 
14 
15 
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These deHnitions are the sate n screen 77 in FORTH -level 
3 listing, except that FUPDATE is used in place of UPDATE 
Nhen Mritinq to a disfc file. 
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EOL and PUT are the sase except for FUPDATE. 



.HODE displays the current editing tode on the bottw line' of 
editing NindON 

IDISPLY types the contents ol the nth screen of the current file 

lEDIT is called Hhen leaving the editor to close the file, put 
the HindoH back in order, and rebuild the current screen. 
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cSCape sets the exit flag so we'll leave the editor. 



(edit) is the editor couand interpreting loop. It gets key 
strokesi updates the cursor position, and executes function 
keys until the exit flag is set 

)EDIT throws 2 return addresses away off the stack and reenters 
the editing loop. 



IS 0 275 826 

B \ File Editor - Line k character operations 

1 67 :K LHDLO CLAD 'LINE C/L CHflVE ; 

2 : (DUPL) LINES ?DUP IF B 00 14 1 - HtOH LOOP THEN ; 

3 61 !K IHSL (OUFL) LIKE CLRL .SLCCK.; 

4 63 :K DUPL (DUPD .BLOCk"; - 

5 64 :K SPLIT LIKES IF (DUPL) -LINE CLAD C/L * 

6 COL BLANK. LINE ♦L .BLOCK LI ! THEH ; 

7 62 tK IL LHOLD LIKES ?DUP IF B DO LINE I ♦ U KLU^ LOOP 

8 THEK L/S LAD C/L BLANK .BLOCK ; 

9 83 :K XC <ADDR DUf> DUP 1+ 3HAP COLS 1- CKOVE 
JO BL SWAP COLS I- ♦ C! FUPDATE .LIHE ; 

11 : INSERT ( c) DUP EMIT HGDE C3 IF COLS I- IF <ADDR m 

12 DUP 1+ COLS 1- <CI10VE C! ♦C FUPDATE .LIKE ELSE <ADD?: C 

13 THEH ELSE <ADflR C! fC rrfEW FUPDATE ; 

14 : xDELETE -C GO HODE C3 IF IC aSE EL (ADDR C! FUPDATE 

15 SPACE THEN ; 



19 

0 \ File Editor - Display function keys 

1 79 :K EOL CLAD C/L -TRAILING OUP IF 1+ THEN 63 NIK CI ! 

2 DROP; 

3 : 7VISIBLE ( c - c t) DUP 31 127 BITHIH ? 

4 63 :K PUT C/L 6 00 'LINE I ♦ C3 7VISI3LE KQT IF 

5 2E> 2DK1P BELL EXIT THEH DRGF LOG? 

6 KOBE C3 DU? IF (DUPL) THEN ' 'LINE afiD C/L CJIQYE FUPDATE 

7 IF .BLOCK aSE e Ct ; 60. .LIKE THEN ; 
8 

9 J .KODE 17 3B TAB MODE C3 IF .' Insert * 
IB ELSE Replace' THEN ; 
11 

12 : XOISPLY ( scrl) PASE (FLISTI .MODE ; 
13 

14 : XEDIT FaOSE «ORK HINDOH 

15 'SCREEN 9 8 'SCREEN EXECUTE ; . 



3 \ File Editor - Co««and Interpreter 

1 ^ : CASE ( n n - n 8, tl OVER - IF 8 ELSE DROP 1 THEN ; 

2 : INSERTION i c) 7VISIBLE IF INSERT 

3 aS£ 13 CASE IF ( Return) 8 Ct ! ^L 

4 ELSE 12 CASE IF ( Bks?) xDELETE 

5 ELSE 89 CASE IF ( Tab) K K K 

6 TlSE 1S3 CASE IF ( ESC) TRUE EDXIT ! 

7 ELSE 14 CASE IF ( PrtSc) CHOICE 

8 THEN TKEM THEN THEN THEN THER ; 

9 : FKEY ( - k, k -I) KEY 'KEY C3 53 > IF ( Function key) 
IB DROP 'KEY C9 -I TEH ; 

11 : (edit) C blkl) . HOKE XDISPLY BEBIN 60 

12 +CURSaR FKEY -CURSOR DUP 1* IF INSERTION 

13 ELSE DROP FUKCTIGK THEN EDXIT J UNTIL ; 

14 CODE >EOIT ' (edit) 2+ t I flOV 4 t R ADD NEXT 
15 
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cant do an etpty-fauffers without loasio^ directonr and BAT 
irifcrfiation too. Solution is to Copy the existing file 
to a 'xxxx.BnK' file, edit that one, and just delete it if 
the user H£nts to forget any changes, 
(the plus function key) is supposed to flip between a screen 
and it's shadow or documentation block* In FORTH, the 
convention is to have docunentation blocks a fixed offset 
above scarce blocks (typically 1 drive hiuher so that source 
and docusentation are on seperate drives). Koh should 
docuaentation blocks be handled? Perhaps a different file type 



\ File Editor - Function Iteys 
( Key 59) ' FLUSH 59 'FUKCTIQH ! 

\ 6G :K RECAa EXPH-BUFFERS 2 pg 
73 :K UP 1 pg >££»IT ; 



.)EDn 



81 :K mn 

\ 78 :K 4Q 

82 iK /mi 



«here the source code Hould be in 'xyrabctxt' and it's shadow 13 
Houid be in 'xyiabc.doc*. This eeans ire need eultiple open • 14 
files, Ni'-iich the file systes doesnt currently support. IS 



-I pg )E1)IT 
(6) >EII1T ; 
• KODE 8= 



RODE C! .nODE 



9 H KEYS ♦ C! 
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ECKENU displays the editing coisarids in the selection NindoH. 



FEDIT is the aaln entry point to the editor. It trys to open 
an existing file ant! if it is not found, it prospts before 
creating a new file. 



1 
2 

4 

5 
6 
7 
B 
9 
IB 
11 
12 
13 
14 
15 



\ File Editor - tlenu Display, Entry point 
EDMEKU ( - } 
SaECTIQS BOX (PAGE) 

COilKANDS: : • 

Fl: FLUSH F2: RECAU F3: SPREAD ' 

F4: DEL LIKF5: DU? L1HF6: SPLIT F?: C£L ESLF9: C'EL EDS' 

F9: HOLD FSC: PUT ESC: EXIT ; 



(FEDIT) STAT-OFF KEKU-OFF 
FALSE EBXIT ! ED»EKU E9ITIKS mm 



FEDIT QFEH? t' Enter Filenaae: • FILEHAKE IF I* 
IF r Create a neH file? (Y/fO* YES? K9T 
IF DROP EXIT THEM FCREATE IF 

f Create Error* .EPJiOR EXIT THEH 
ELSE DROP THEK (FEDITl THEK : 



(edit) lEDIT ; 

OUP FQPEH 
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J 
6 
7 
8 
9 

IB 
11 
12 
13 
14 



SET-MFK3S sets lethod lessa^e to the address of in line 
string. 



FHi(=G irC5 hucUou a^ssdve to the address of in line 
string, 

t eRKT-STR coiipiles a sharp trakst dsliiited «str.,,)j 
string (rot the input streaa into the dictionary, 



fl \ Prograiiable lethod and function tess-ges - basics 

2 : SET-I1PMSG ( - ) 

3 I ?F.3 MPH36 ! j 
4 

5 : SET-FPHS8 ( - ) 

6 1 ?RJ FP«SG ! ; 
7 

8 : BRa-STR 

9 -1 >IK +1 63 HORD DROP 62 STRIHS : 
IB ' 
li 

12 23B LOW \ Message turnoff coaeands 

13 

14 

15 
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KES3ASE cotpiles a •essa^e and wkfes it the «thod lessaqe at 
execution ti«e. 

r£SSAe£-QFF turns off the iethod asssage, if any. 

FRESSAGE coapiles a .essage and takes it- the function eessaae 
at execution tiie. ^ 

F«ES3Ae£-{IFF turns off the function eessaqe, if any. I 



B \ Proyrawable sethod and function esssages - top level 

2 : MESSAGE ( - ) 

3 COMPILE SET-MPI1S5 BRKT-STR ; ' IMMEDIfiTE 

5 : MESSABE-OFF ( - ) 

6 8 MPHSG ! ; 
7 

8 : FHESSA5E ( - ) 

* 9 COMPILE SET-FPHS6 8PJCT-STR ; IMMEDIATE 
13 

11 : FMESSASE-OFF ( - ) 

12 8 FPMS6 ! ; 
13 

14 
15 
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le 

II 
12 
13 
14 
15 



RV-KAKE-TBL is a table ai pointers to strings that contain ' * 
the naaes *or the rotary vavle positions. 

CC'-NA«E-T3l is a table of pointers to strings that contain 
the naes for the contact deyics positic*ns. 

These load cciSrnJs cospiU ri5K strin-^s and put their 
addresses in the given table. 



B \ Systei configuration tables and load screen 
1 

2 241 IGAC \ String table generation Kcrds 
3 

4 CREATE RV-HAKE-TBL 32 ALLOT - - 

5 CREATE CD-KiRE-Ttl 96 AaOT 
fc 

7 RV-KAKE-TBL ■ 3SB LOAD \ Rotary valve nases 

B CD-KARE-TBL " 381 LOAD \ Contact device functions l-ir 

5 CC-KftltE-TBL 4S ♦ 3S2 LQAO \ Contact device functions 13-24 

IG 

11 

12 

13 

14 



56: 
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I3-PTR is a pointer to the location at which we coapile the 
string's address. It serves as an index into a table, * 

IS-LEK is the required length of the strings that are being 
CDspiled. 

*C0.^I5L7£ and CHARACTER Set IS-PTR and IS-LL»i in a clean 
syntax. See the last note in this block. 

C3TRIN6 cosailes a string and places its address into a t«ble, 
advancing IS-FTR for the next string. 

STRIKG3 coipiles the required nuiber of strings. 

The syntax of usage is: CONFIGURE n i CHARACTER STRINGS. The 
fidress of the table is given on the stack before starting. 



0 \ Configuration tables - creating string tables 

1 VARIABLE IS-PTR 

2 VARIABLE IS-LEN 



3 






4 : 


COJ^FIEURE 




5 


IS-PTR 1 




6 : 


CHARACTER 




7 


IS-LEK • 


? 


8 






9 : 


CSTRIHS 




IB 


-2 ALLOT 


-I >1N 66 «ORD DROP 


11 


HERE 2* IS-LEH 3 BLANK 62 KQRD 


12 


IS-LEH 3 OVER C! IS-PTR 3 ! 2 IS-PTR ♦ 


13 


IS-LEH 5 1+ 2+ ALLOT ; 


14 : 


STRIKES 




15 


Z DO CSTRINS LOOP ; 
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6 
7 
8 
9 
IB 
U 



13 
14 
15 



\ Configuration screen for rotary valve naies 
CQKFI6URE U L3 CHARACTER STRIK6S 



I 

3 Vdivel I 

^ 1 



5 1 ; 

6 2 I 

7 3 ! 
6 4 I 
9 

16 Ydlvef ; 

11 - 

12 1 

13 2 
U 3 
15 4 



Port II 



Port 12 



(Fill Sprayer > 

< Solvent 12 ) 

< > 

< > 

Port 13 



< Saiple Line > 

< IC Bypass > 

< > 

< > 



< To Waste ) 

< To LC Loop ) 

< ) 

< > 

Port M 



< Sasple Loop > 

< Solvent II > 

< > 

< > 



9 \ Confiouration screen for contact device functions 1 thru P 

1 COHFIGURE 24 2fl CHARACTER STRINGS 

2 cdl ; OFF function ON function 



4 

S 

7 
B 

10 
11 
12 
13 
14 
15 



1 
2 
3 
4 

r . 
J 

6 

7 I 

8 I 

9 i 

le i 

11 ; 

12 ! 



<l:SaapIe Loop Bypass) 
<2:SaapIe Loop Bypass) 
<3: Hani fold - Cup 
<4! Puip - Nanifold 
< 

<6: Fill 6as Reserve 
<7:Pres5urize Sprayer 
< 



< 
< 



Vent Cup 



<1: Sample Loop > 

<2: Saiple Loop > 

<3: Cup To Haste > 

<4: 6as To Kanifold > 

< > 

<6:Eipty 6as Reserve > 



<7: 
< 
< 
< 

< 



Spray 



Pressurize Cup 



30: 



8 \ Confiouration screen for contact device functions 13 thru 24 
1 C0HFI6URE 24 2fl CHARACTER STRINGS 



2 
3 


cdl ; 




OFF function 






OH function 


4 


13 : 


< 




) 


< 




5 


14 : 


< 




> 


< 






IS : 


< 




) 


< 




7 


16 : 


< 




> 


<16:LC Fill Position > 


B 


17 ! 


< 




> 


<17: 


LC Inject > 


9 


18 ; 


< 




> 


< 


19 


19 ! 


< 




) 


< 




11 


28 ; 


< 




) 


< 




12 


21 ; 


< 




) 


< 




13 


22 : 


< 


OFF 


) 


< 


OH > 


14 


23 1 


< 


OFF 


) 


< 


ON > 


15 


24 : 


< 


OFF 


> 


< 


OH > 




6 




z 

4 
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9 «« HELP FOR STATUS SCREEN »» 

I 

2 This is the Systei Status Screen. The display shews the 

3 current state of each systei eleient- 

5 Fl is the Start/Stop key. Use it to cDntrol aethod operation. 

6 F2 is the Paase/Contince key. Use it ts suspend a ran, 

7 F3 alloHS a direct cosfind to be entered (for debufioing only). 
B F4 alloKS exiting baci: to the FGPJH systei. 

9 HUK LOCK causes the current screen display to be copied to the 
18 printer. 

U <- -> Keys iove the coieand selector across the lenu. 

12 ♦ Causes the currently seiKted cowand to be executed 

13 - or ESC Exits the current Screen. 

H Type the first character of the cosiand naie to execute it 
15 C Hit Any Key to Exit the Kelp Screens ] 
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i This is second status help screen. 




2 




3 




4 




5 
6 


m 


7 




8 




9 




Ifl 




11 


9 


12 




13 




14 




IS 
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1 This is third status help screen. 

2 

3 

4 



o 
6 
7 
8 
9 
IB 
11 
12 
13 
14 
15 
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1 This is fourth status help screen. 

2 

Z 

4 



h 
7 
8 
9 
18 
11 
12 
13 
14 
15 
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8 «<( HELP FOR FILER SCREW »» 

1 

2 The filer provides sos& utility cowands for lanipulating disk 

3 files, Files can be copied, deleted and renaied, and a new disk 

4 can be fcriatted. 

5 The directory listing of the disk is displayed. If there are 

6 tore files than can be shown on the screen at one tiie, you can 

7 use the page up or page dow keys to see thei, 
B 

9 
18 
11 
12 
13 
14 

15 t Hit Any Key to Exit the Help Screens ] 



h 

7 
8 
9 

le 

u 

12 
13 
14 
15 
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3 
4 

5 

7 
8 
9 
IB 
U 
12 
13 
U 
15 
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8 «« KELP FOR PRIIffER SCREEN »» 
1 

2 The printer utility allcKs files and disk directories to he 

3 sent to the printer. 
4 

5 
6 

7 . • 

8 

9 ^ 
18 

11 
12 
13 

14 f 

15 E Hit Any Key to Exit the Help Screens ] 
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• 2 
3 
4 
5 
h 
1 
8 
9 

18 

n 

12 
13 
14 
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e 

1 
2 
3 
4 
5 
6 
7 
B 
9 
18 
11 
12 
13 
14 
IS 
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( Sdiple Prep Task definitions ) 

339 TERMINAL PSTATUS 
PSTATUS CONSTRUCT 

m^ TEPJtlKAL COKTRflL 
'CCKTROL CQKSTRUCT 

: HALT ACTIVATE STOP ; 

A 63B7 PSTATUS 'TYPE HIS I 
X 'TAB 3 PSTATUS 'TAB HIS ! 



320 




30- 



BAR CODE 
READEFI 



32- 



NETWORK 

INTERFACE 

CONTROLLER 



28 



34- 



SAMPLE- 
LOADER 



36- 



ELECTRONIC 
SCALES 



38-^ 



PUMP 
INTERFACE 



42— 



RS232 
INTERFACE 



L 



40 



VALVE 
DRIVERS 



1^44 



MIXER 
INTERFACE 



T2. 



55 



MIXER 



48 



ANALYZER 



20 



CPU 



I 



22 



MASS 
STORAGE 



AUXILIARY 
INTERFACE 



-46 



KEYBOARD -24 



DISPLAY 



-26 



FIG. 



REVERSIBLE 
PUMP 



FIG. 2 



FILTER 




TO ALL 
CONTROLL- 
: ABLE 
ELEMENTS 

' CONTROL/I 
" USER I 

INTERFACEI 
' SYSTEM I 

20^' 



50 





SELF 






TEST 






, ^52 



USER ID 

REQUEST/ 
VERIFY 



DISPLAY 
'NO ACCESS" 
MESSAGE IF 
USER DOES 
NOT HAVE 
REQUIRED 

ACCESS 
PRIVILEGE 



STORE USER 
ID 

DETERMINE 

ACCESS 
PRIVILEGES 



, ^58 

DISPLAY 
OPTION MENU 



1 rso 



VERIFY ACCESS 
PRIVILEGE FDR 
SELECTED OPTION 






7-62 


BRANCH TO 
ROUTINE FOR 
SELECTED OPTION 







FIG. 4 



1 



67 



CREATE, MODIFY OR 
DELETE AN OPERATION 
SEQUENCE 



r66 



PRINT A HARD COPY 
OF SEQUENCE THAT 

HAS BEEN PROGRAMMED 







^68 


LOAD A PREDETERMINED 
SEQUENCE 






PRINT A DIRECTORY 
OF ALL METHODS OR 
SEQUENCES 






START THE SELECTED 
SEQUENCE 






DISPLAY SYSTEM STATUS 






PRINT THE SYSTEM 
STATUS 






CHANG 
PARAW 


E SYSTEM DEFAULT 
lETERS 





Y-80 


GRANT 


USER ACCESS 


TO VARIOUS VALVE 


AND RELAY CONTROLS 






CREATE 


NEW SYSTEM 


FUNCTIONS 




1 ^84 


PRINT / 


\ REPORT 






CHANGE THE PRINT 


PARAMETERS 




^88 


DISPLAY SYSTEM OPTIONS 


1 r^o 



USE PRINT MODE 



92 



GRANT ACCESS TO 
SYSTEM FUNCTIONS 



FIG. 5 



HIGH 




L 



100 



NAME SEQUENCE 
TO BE PROGRAMMED 



'102 



SELECT FIRST HIGH 
LEVEL COMMAND 




^i04 


PROMPT USER FOR 
PARAMETER VALUES 




/-I06 

^ 1 



<^AST COMMAND? 



] 



YES 



r 



108 



STORE SEQUENCE 

I 



RETURN TO 
MAIN MENU 



HIGH LEVEL 
OR 

EXPERT LEVEL? 




L 



96 



DISPLAY 
"NO ACCESS" 
MESSAGE 



L 



98 



RETURN TO 
MAIN MENU 



i rwo 



SELECT NEXT 
HIGH LEVEL 
COMMAND 



112 



PROMPT USER 
FOR PARAMETER 
VALUES 



YES, 



£ 



114 



LAST COMMAND? 



NO 



EXPERT 



•116 



NAM 
SEQU 


E 

ENCE 




, ^118 


SELECT RRST 
EXPERT LEVEL 
COMMAND 



^120 



PROMPT USERS FOR 
RiXRAMETER VALUES 



YES 



r 



122 



-<^0ONE? ^ 



NO 



124 



SELECT NEXT 
EXPERT LEVEL 
COMMAND 



YES 



126 



5/ — N 

\ooNE? y 



NO 



FIG. 6 
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